diff options
Diffstat (limited to 'proofs/pattern.mli')
-rw-r--r-- | proofs/pattern.mli | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/proofs/pattern.mli b/proofs/pattern.mli new file mode 100644 index 000000000..a4685a468 --- /dev/null +++ b/proofs/pattern.mli @@ -0,0 +1,60 @@ + +(* $Id$ *) + +(*i*) +open Names +open Sign +open Term +open Environ +(*i*) + +type constr_pattern = + | PRef of constr array reference + | PRel of int + | PApp of constr_pattern * constr_pattern array + | PSoApp of int * constr list + | PBinder of binder_kind * name * constr_pattern * constr_pattern + | PLet of identifier * constr_pattern * constr_pattern * constr_pattern + | PSort of Rawterm.rawsort + | PMeta of int option + | PCase of constr_pattern option * constr_pattern * constr_pattern array + +val occur_meta_pattern : constr_pattern -> bool + +type constr_label = + | ConstNode of section_path + | IndNode of inductive_path + | CstrNode of constructor_path + | VarNode of identifier + +exception BoundPattern + +(* [head_pattern_bound t] extracts the head variable/constant of the + type [t] or raises [BoundPattern] (even if a sort); it raises an anomaly + if [t] is an abstraction *) + +val head_pattern_bound : constr_pattern -> constr_label + +(* [head_of_constr_reference c] assumes [r] denotes a reference and + returns its label; raises an anomaly otherwise *) + +val head_of_constr_reference : Term.constr -> constr_label + +(* [pattern_of_constr c] translates a term [c] with metavariables into + a pattern; currently, no destructor (Cases, Fix, Cofix) and no + existential variable are allowed in [c] *) + +val pattern_of_constr : constr -> constr_pattern + + +exception PatternMatchingFailure + +val matches : + constr_pattern -> constr -> (int * constr) list +val matches_conv : + env -> 'a Evd.evar_map -> constr_pattern -> constr -> (int * constr) list +val is_matching : + constr_pattern -> constr -> bool +val is_matching_conv : + env -> 'a Evd.evar_map -> constr_pattern -> constr -> bool + |