diff options
-rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index d7b67ba39..9aeff1f28 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -436,7 +436,7 @@ let prim_refiner r sigma goal = | { name = Convert_concl; terms = [cl'] } -> let cl'ty = type_of env sigma cl' in if is_conv_leq env sigma cl' cl then - let sg = mk_goal info env (mkCast (cl',cl'ty)) in + let sg = mk_goal info env cl' in [sg] else error "convert-concl rule passed non-converting term" |