diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-01 14:54:09 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-01 14:54:09 +0000 |
| commit | 9bfe45ef4974157c18ef18876b7df8adfb286414 (patch) | |
| tree | e4d6620376a697196908a6f153c3e4df7f18c72e /proofs | |
| parent | ece6204d9ccb8e37f5050ba4ee5c3d43669bf6ef (diff) | |
Déplacement définition intro_pattern_expr dans Genarg
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5406 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacexpr.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index c55fc31a8..062d415c3 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -63,13 +63,6 @@ type 'a induction_arg = | ElimOnIdent of identifier located | ElimOnAnonHyp of int -type intro_pattern_expr = - | IntroOrAndPattern of case_intro_pattern_expr - | IntroWildcard - | IntroIdentifier of identifier - -and case_intro_pattern_expr = intro_pattern_expr list list - type inversion_kind = | SimpleInversion | FullInversion @@ -226,7 +219,7 @@ and ('constr,'pat,'cst,'ind,'ref,'id,'tac) gen_tactic_arg = | TacVoid | MetaIdArg of loc * string | ConstrMayEval of ('constr,'cst) may_eval - | Identifier of identifier (* parsed under Reference (Ident _) *) + | IntroPattern of intro_pattern_expr | Reference of 'ref | Integer of int | TacCall of loc * |