src/HOL/Tools/Nitpick/nitpick_hol.ML
changeset 41994 c567c860caf6
parent 41898 55d981e1232a
child 42361 23f352990944
--- a/src/HOL/Tools/Nitpick/nitpick_hol.ML	Thu Mar 17 22:07:17 2011 +0100
+++ b/src/HOL/Tools/Nitpick/nitpick_hol.ML	Fri Mar 18 10:17:37 2011 +0100
@@ -214,6 +214,7 @@
   val fixpoint_kind_of_const :
     theory -> const_table * const_table -> string * typ -> fixpoint_kind
   val is_real_inductive_pred : hol_context -> styp -> bool
+  val is_constr_pattern : Proof.context -> term -> bool
   val is_constr_pattern_lhs : Proof.context -> term -> bool
   val is_constr_pattern_formula : Proof.context -> term -> bool
   val nondef_props_for_const :