diff options
| -rw-r--r-- | test-suite/bugs/closed/1784.v | 2 | ||||
| -rw-r--r-- | toplevel/command.ml | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/test-suite/bugs/closed/1784.v b/test-suite/bugs/closed/1784.v index fb2f0ca90e..0b63d7b567 100644 --- a/test-suite/bugs/closed/1784.v +++ b/test-suite/bugs/closed/1784.v @@ -92,7 +92,7 @@ Next Obligation. intro H; inversion H; subst. Defined. Next Obligation. intro H1; contradict H. inversion H1; subst. assumption. contradict H0; assumption. Defined. -Next Obligation. +Next Obligation. intro H1; contradict H0. inversion H1; subst. assumption. Defined. Next Obligation. intro H1; contradict H. inversion H1; subst. assumption. Defined. diff --git a/toplevel/command.ml b/toplevel/command.ml index 2d82b93523..6866bc69e2 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -905,7 +905,9 @@ let interp_recursive isfix fixl notations = if Flags.is_program_mode () then let sort = Retyping.get_type_of env !evdref t in let fixprot = - try mkApp (delayed_force fix_proto, [|sort; t|]) + try + let app = mkApp (delayed_force fix_proto, [|sort; t|]) in + Typing.solve_evars env evdref app with e when Errors.noncritical e -> t in (id,None,fixprot) :: env' |