diff options
| -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 = |