diff options
| author | mohring | 2000-12-14 07:42:27 +0000 |
|---|---|---|
| committer | mohring | 2000-12-14 07:42:27 +0000 |
| commit | fdb4e951e25d8e1a87c7ccc32acfdcf8d7737368 (patch) | |
| tree | 12f995cc61c504aca2d04fb903484c2c15a7bc8a | |
| parent | e166c79cd0dfdcb40693b8e20a96eb9927013df7 (diff) | |
LetIn dans Simpl
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1104 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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" >] |