diff options
author | 2017-12-15 17:54:44 +0100 | |
---|---|---|
committer | 2017-12-15 17:54:44 +0100 | |
commit | 50bd89748af03bb28ad7024f2ceef500489a91b0 (patch) | |
tree | 3f0b5c3eca5412b00e187cac7fde54c1a3d10ca9 /interp/constrintern.ml | |
parent | 8fe59e96aae527655c5450603b5627f852a368c7 (diff) | |
parent | 7799626c67c39c6bd2c5faf247456efb2c26ae82 (diff) |
Merge PR #6392: [econstr] Cleanup in `vernac/classes.ml`
Diffstat (limited to 'interp/constrintern.ml')
-rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 74ae32120..14234b311 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -2127,7 +2127,7 @@ let interp_constr_evars env evdref ?(impls=empty_internalization_env) c = interp_constr_evars_gen env evdref WithoutTypeConstraint ~impls c let interp_casted_constr_evars env evdref ?(impls=empty_internalization_env) c typ = - interp_constr_evars_gen env evdref ~impls (OfType (EConstr.of_constr typ)) c + interp_constr_evars_gen env evdref ~impls (OfType typ) c let interp_type_evars env evdref ?(impls=empty_internalization_env) c = interp_constr_evars_gen env evdref IsType ~impls c |