Decoupage de tactics/pattern en proofs/pattern et tactics/hipattern

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@382 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 60 insertions, 0 deletions

diff --git a/proofs/pattern.mli b/proofs/pattern.mli
new file mode 100644
index 0000000000..a4685a4680
--- /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
+