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 /contrib/interface/pbp.ml | |
| 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 'contrib/interface/pbp.ml')
| -rw-r--r-- | contrib/interface/pbp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/pbp.ml b/contrib/interface/pbp.ml index be99bdde0a..0680cc23e5 100644 --- a/contrib/interface/pbp.ml +++ b/contrib/interface/pbp.ml @@ -171,7 +171,7 @@ let make_pbp_atomic_tactic = function | PbpRight -> TacAtom (zz, TacRight NoBindings) | PbpIntros l -> TacAtom (zz, TacIntroPattern l) | PbpLApply h -> TacAtom (zz, TacLApply (make_var h)) - | PbpApply h -> TacAtom (zz, TacApply (false,(make_var h,NoBindings))) + | PbpApply h -> TacAtom (zz, TacApply (true,false,(make_var h,NoBindings))) | PbpElim (hyp_name, names) -> let bind = List.map (fun s ->(zz,NamedHyp s,make_pbp_pattern s)) names in TacAtom |