diff options
| author | herbelin | 2008-04-01 14:41:07 +0000 |
|---|---|---|
| committer | herbelin | 2008-04-01 14:41:07 +0000 |
| commit | 97fb9f22eadab06fe320ccedf6abfb6be89702f4 (patch) | |
| tree | 39236d4d52b822faf79a4d665e79ac689dc3f978 /proofs | |
| parent | b9f32144ada6df45194ea011b1c6468e10747c8f (diff) | |
Ajout "simple apply" et "simple eapply" pour apply sans unfold
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10738 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacexpr.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index 5ddebf3c99..595c2ec9b8 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -23,6 +23,7 @@ type direction_flag = bool (* true = Left-to-right false = right-to-right *) type lazy_flag = bool (* true = lazy false = eager *) type evars_flag = bool (* true = pose evars false = fail on evars *) type rec_flag = bool (* true = recursive false = not recursive *) +type advanced_flag = bool (* true = advanced false = basic *) type raw_red_flag = | FBeta @@ -130,7 +131,7 @@ type ('constr,'pat,'cst,'ind,'ref,'id,'tac) gen_atomic_tactic_expr = | TacExact of 'constr | TacExactNoCheck of 'constr | TacVmCastNoCheck of 'constr - | TacApply of evars_flag * 'constr with_bindings + | TacApply of advanced_flag * evars_flag * 'constr with_bindings | TacElim of evars_flag * 'constr with_bindings * 'constr with_bindings option | TacElimType of 'constr |