diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-16 17:11:44 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-16 17:11:44 +0000 |
commit | 744e7f6a319f4d459a3cc2309f575d43041d75aa (patch) | |
tree | f130166bae5b1c1aa39860e8e5a2e79bfa284296 /proofs/refiner.ml | |
parent | 8fe195799d9bf4eb0c84fad3e9a79b78e6e224ec (diff) |
affichage des ... dans les scripts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9244 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 3d65406b8..2c02fb6f1 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -173,13 +173,14 @@ let abstract_operation syntax semantics gls = goal = gls.it; ref = Some(Nested(syntax,hidden_proof),spfl)}) -let abstract_tactic_expr te tacfun gls = - abstract_operation (Tactic te) tacfun gls +let abstract_tactic_expr ?(dflt=false) te tacfun gls = + abstract_operation (Tactic(te,dflt)) tacfun gls -let abstract_tactic te = abstract_tactic_expr (Tacexpr.TacAtom (dummy_loc,te)) +let abstract_tactic ?(dflt=false) te = + abstract_tactic_expr ~dflt (Tacexpr.TacAtom (dummy_loc,te)) -let abstract_extended_tactic s args = - abstract_tactic (Tacexpr.TacExtend (dummy_loc, s, args)) +let abstract_extended_tactic ?(dflt=false) s args = + abstract_tactic ~dflt (Tacexpr.TacExtend (dummy_loc, s, args)) let refiner = function | Prim pr as r -> |