diff options
| author | corbinea | 2003-03-24 09:59:26 +0000 |
|---|---|---|
| committer | corbinea | 2003-03-24 09:59:26 +0000 |
| commit | bd720ff7ced0b336e7687ef1330fa3152aca2555 (patch) | |
| tree | 3fa5c089f535356b946c8d73a68cc73c3c8e7b57 | |
| parent | 5292c00d8365ed9c3ff1d49f4e56e9cad60c4c4b (diff) | |
Bugfix pour Linear.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3785 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rwxr-xr-x | contrib/linear/ccidpc.ml4 | 6 | ||||
| -rwxr-xr-x | contrib/linear/dpc.ml4 | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/contrib/linear/ccidpc.ml4 b/contrib/linear/ccidpc.ml4 index 06b4aaa48a..09b81f349c 100755 --- a/contrib/linear/ccidpc.ml4 +++ b/contrib/linear/ccidpc.ml4 @@ -205,8 +205,8 @@ let rec alpha_term bl1 bl2 p_0 p_1 = | (_, _) -> false -let forAllI gls=if is_forall_term (pf_concl gls) then - intro gls else tclFAIL 0 gls +let forAllI id gls=if is_forall_term (pf_concl gls) then + intro_using id gls else tclFAIL 0 gls let forAllE id t gls = let rgl=pf_whd_betadeltaiota gls (pf_type_of gls (mkVar id)) in @@ -334,7 +334,7 @@ let rec tradpf kspine jspine dpcpf gls = trad kspine jspine pf1]))) gls | Proof2(_,_,RForAll2(kid,f,pf)) -> - ((tclTHEN forAllI + ((tclTHEN (forAllI kid) ((onLastHyp (fun jid -> trad (kid::kspine) (jid::jspine) pf))))) gls diff --git a/contrib/linear/dpc.ml4 b/contrib/linear/dpc.ml4 index ba7bc884d4..d30cf9ae1c 100755 --- a/contrib/linear/dpc.ml4 +++ b/contrib/linear/dpc.ml4 @@ -24,7 +24,7 @@ open Ccidpc let rec intros_forall gls = let t = pf_concl gls in if is_forall_term t - then ((tclTHEN forAllI (intros_forall))) gls + then ((tclTHEN intro (intros_forall))) gls else tclIDTAC gls let dPC_nq gls = |