diff options
| -rw-r--r-- | PROBLEMES | 9 | ||||
| -rw-r--r-- | pretyping/tacred.ml | 1 | ||||
| -rw-r--r-- | tactics/equality.ml | 2 |
3 files changed, 7 insertions, 5 deletions
@@ -1,3 +1,7 @@ +AddPath "/toto". +Anomaly: Uncaught exception Unix.Unix_error(20, "stat", "/toto"). +Please report. + Declaration de Local a l'interieur d'un but ... Certains Clear deviennent impossible car la variable apparait dans @@ -93,11 +97,8 @@ Error: Attempt to save an incomplete proof Rocq/DEMOS/Demo_AutoRewrite Anomaly: Invalid argument "output_value: functional value". - Montevideo/CtlTctl OK -Montevideo/RailroadCrossing -File "./railroad_crossing.v", line 613, characters 2-20 -Anomaly: useInversionLemma. Please report. +Montevideo/RailroadCrossing OK Nijmegen OK Utrecht/Ramsey OK diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 2768bb3fea..fbf9b34776 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -314,6 +314,7 @@ and construct_const env sigma = | None -> assert false | Some (c',rest) -> stacklam hnfstack [c'] c rest) + | IsLetIn (n,b,t,c) -> stacklam hnfstack [b] c stack | IsMutCase (ci,p,c,lf) -> hnfstack (special_red_case env (construct_const env sigma) (ci,p,c,lf), stack) diff --git a/tactics/equality.ml b/tactics/equality.ml index 8a6291c2d5..2108301c37 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -932,7 +932,7 @@ let injClause cls gls = with | Not_found -> errorlabstrm "InjClause" (not_found_message id) - | UserError("refiner__FAIL",_) -> + | UserError("refiner__fail",_) -> errorlabstrm "InjClause" [< 'sTR (string_of_id id); 'sTR" Not a projectable equality" >] |