diff options
| author | herbelin | 2001-08-08 15:15:16 +0000 |
|---|---|---|
| committer | herbelin | 2001-08-08 15:15:16 +0000 |
| commit | 3aa6b093a6494cc1ee3cf741a6aa4427e79761e2 (patch) | |
| tree | d55d16b984c027707b916028e00ed44f6848735e | |
| parent | 85c965b8ffe14206f438644fda9100fa8a95bdaa (diff) | |
Ajout nf_betaiota dans le cut interne
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1886 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 36c928094d..40dce23495 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -381,7 +381,7 @@ let prim_refiner r sigma goal = | { name = Cut b; terms = [t]; newids = [id] } -> if occur_meta t then error_use_instantiate(); - let sg1 = mk_goal info sign t in + let sg1 = mk_goal info sign (nf_betaiota t) in let sg2 = mk_goal info (add_named_decl (id,None,t) sign) cl in if b then [sg1;sg2] else [sg2;sg1] |