diff options
| author | letouzey | 2006-03-24 22:03:26 +0000 |
|---|---|---|
| committer | letouzey | 2006-03-24 22:03:26 +0000 |
| commit | a2be2d34776d756c479b38b071d21f4b5c691cf3 (patch) | |
| tree | 82fad1ca11a69380b6fa9ae029acccae97c381bb /proofs | |
| parent | 42cf521e135acf3a6977a85d3e8ea17de63d6dc2 (diff) | |
Patch envoy\'e par Benjamin Gregoire, permettant de corriger
un probleme avec normalise_vm_in_concl
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8659 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -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 071e44b5be..59ff7a3224 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -627,7 +627,7 @@ let prim_extractor subfun vl pft = (* Structural and conversion rules do not produce any proof *) | Some (Prim (Convert_concl (t,k)),[pf]) -> if k = DEFAULTcast then subfun vl pf - else mkCast (subfun vl pf,k,cl) + else mkCast (subfun vl pf,k,subst_proof_vars vl cl) | Some (Prim (Convert_hyp _),[pf]) -> subfun vl pf |