diff options
Diffstat (limited to 'toplevel/command.ml')
-rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index a98daf709..0b2e6b352 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -621,7 +621,7 @@ let build_wellfounded (recname,n,bl,arityc,body) r measure notation = | [(_, None, t); (_, None, u)], Sort (Prop Null) when Reductionops.is_conv env !isevars t u -> t | _, _ -> error () - with _ -> error () + with e when Errors.noncritical e -> error () in let measure = interp_casted_constr_evars isevars binders_env measure relargty in let wf_rel, wf_rel_fun, measure_fn = @@ -751,7 +751,7 @@ let interp_recursive isfix fixl notations = let sort = Retyping.get_type_of env !evdref t in let fixprot = try mkApp (delayed_force fix_proto, [|sort; t|]) - with e -> t + with e when Errors.noncritical e -> t in (id,None,fixprot) :: env' else (id,None,t) :: env') |