diff options
| author | barras | 2003-10-22 10:35:04 +0000 |
|---|---|---|
| committer | barras | 2003-10-22 10:35:04 +0000 |
| commit | 6475388a91c899e8bcf7b69b223180025d4f85ff (patch) | |
| tree | 6031dc6e72bb676fa9d9e4f9f2be8ab50c1ca2e3 /toplevel | |
| parent | 9da09a4da10aa36699538bde01086172c64689eb (diff) | |
reorganisation des niveaux (ex: = est a 70)
Hint Destruct: syntaxe similaire aux autres hints...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4696 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 2 | ||||
| -rw-r--r-- | toplevel/vernacexpr.ml | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 3f979d9b1c..9c248e9dc4 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1168,8 +1168,6 @@ let interp c = match c with (* Commands *) | VernacDeclareTacticDefinition (x,l) -> vernac_declare_tactic_definition x l | VernacHints (local,dbnames,hints) -> vernac_hints local dbnames hints - | VernacHintDestruct (local,id,l,p,n,tac) -> - Dhyp.add_destructor_hint local id l p n tac | VernacSyntacticDefinition (id,c,n) -> vernac_syntactic_definition id c n | VernacDeclareImplicits (qid,l) -> vernac_declare_implicits qid l | VernacReserve (idl,c) -> vernac_reserve idl c diff --git a/toplevel/vernacexpr.ml b/toplevel/vernacexpr.ml index 441244caf6..61d468fe5a 100644 --- a/toplevel/vernacexpr.ml +++ b/toplevel/vernacexpr.ml @@ -98,8 +98,10 @@ type hints = | HintsResolve of (identifier option * constr_expr) list | HintsImmediate of (identifier option * constr_expr) list | HintsUnfold of (identifier option * reference) list - | HintsConstructors of identifier * reference - | HintsExtern of identifier * int * raw_constr_expr * raw_tactic_expr + | HintsConstructors of identifier option * reference list + | HintsExtern of identifier option * int * raw_constr_expr * raw_tactic_expr + | HintsDestruct of identifier * + int * (bool,unit) location * constr_expr * raw_tactic_expr type search_restriction = | SearchInside of reference list @@ -235,8 +237,6 @@ type vernac_expr = | VernacDeclareTacticDefinition of rec_flag * (identifier located * raw_tactic_expr) list | VernacHints of locality_flag * string list * hints - | VernacHintDestruct of locality_flag * - identifier * (bool,unit) location * constr_expr * int * raw_tactic_expr | VernacSyntacticDefinition of identifier * constr_expr * int option | VernacDeclareImplicits of reference * explicitation list option | VernacReserve of identifier list * constr_expr |