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 /contrib/linear/dpc.ml4 | |
| parent | 5292c00d8365ed9c3ff1d49f4e56e9cad60c4c4b (diff) | |
Bugfix pour Linear.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3785 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/linear/dpc.ml4')
| -rwxr-xr-x | contrib/linear/dpc.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |