free_op_sym (Qual_op_name on ot r) = Qual_op_name on' ot' r
     where on' = mkFreeName on
           ot' = free_op_type ot

-- | generates the free representation of an OP_TYPE
free_op_sym (Qual_op_name on ot r) = Qual_op_name on' ot' r
     where on' = mkFreeName on
           ot' = free_op_type ot

-- | generates the free representation of an OP_TYPE
free_op_sym (Qual_op_name on ot r) = Qual_op_name on' ot' r
     where on' = mkFreeName on
           ot' = free_op_type ot

-- | generates the free representation of an OP_TYPE