diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-01 17:17:20 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-04-01 17:17:20 +0200 |
commit | 91e8dfcd7192065f21273d02374dce299241616f (patch) | |
tree | 9eac045fa0a85569f642655f2c2915795ff73c50 /intf | |
parent | 9816979c8f43ea27976048f1376b1fd65877b4a2 (diff) | |
parent | a0d3865ced307d6f826b2eaae9cc2e23ff465d8b (diff) |
Merge PR #7106: Supporting fix and cofix in Ltac pattern-matching (wish #7092)
Diffstat (limited to 'intf')
-rw-r--r-- | intf/pattern.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/intf/pattern.ml b/intf/pattern.ml index af2347674..76367b612 100644 --- a/intf/pattern.ml +++ b/intf/pattern.ml @@ -10,7 +10,6 @@ open Names open Globnames -open Constr open Misctypes (** {5 Patterns} *) @@ -37,8 +36,8 @@ type constr_pattern = | PIf of constr_pattern * constr_pattern * constr_pattern | PCase of case_info_pattern * constr_pattern * constr_pattern * (int * bool list * constr_pattern) list (** index of constructor, nb of args *) - | PFix of fixpoint - | PCoFix of cofixpoint + | PFix of (int array * int) * (Name.t array * constr_pattern array * constr_pattern array) + | PCoFix of int * (Name.t array * constr_pattern array * constr_pattern array) (** Nota : in a [PCase], the array of branches might be shorter than expected, denoting the use of a final "_ => _" branch *) |