Structure Pmatch

signature Pmatch =
sig

   type term = Term.term
   type thm = Thm.thm
   type thry = {Thy : string, Tyop : string} ->
               {case_const : term, constructors : term list} option

   datatype pattern
        = GIVEN   of term * int
        | OMITTED of term * int

   val allow_new_clauses : bool ref
   val pat_of : pattern -> term
   val givens : pattern list -> term list

   val mk_functional : thry -> term -> {functional:term, pats: pattern list}
   val mk_pattern_fn : thry -> (term * term) list -> term

   (* case expression manipulation functions *)
   val mk_case : thry -> term * (term * term) list -> term
   val dest_case : thry -> term -> term * term * (term * term) list
   val is_case : thry -> term -> bool
   val strip_case : thry -> term -> term * (term * term) list

   (* switch between classic and default heuristic
      more heuristics are available in PmatchHeuristics *)
   val set_default_heuristic : unit -> unit
   val set_classic_heuristic : unit -> unit
   val with_classic_heuristic : ('a -> 'b) -> ('a -> 'b)

   (* provide choices manually *)
   val with_manual_heuristic : int list -> ('a -> 'b) -> ('a -> 'b)
end

HOL 4, Trindemossen-1