1995-08-09 08:06:35 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Objective Caml *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* *)
|
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
1995-08-09 08:06:35 -07:00
|
|
|
(* Automatique. Distributed only by permission. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
|
1995-05-04 03:15:53 -07:00
|
|
|
open Terms
|
|
|
|
|
open Equations
|
|
|
|
|
|
|
|
|
|
val super: term -> term -> (int list * (int * term) list) list
|
|
|
|
|
val super_strict: term -> term -> (int list * (int * term) list) list
|
|
|
|
|
val critical_pairs: term * term -> term * term -> (term * term) list
|
|
|
|
|
val strict_critical_pairs: term * term -> term * term -> (term * term) list
|
|
|
|
|
val mutual_critical_pairs: term * term -> term * term -> (term * term) list
|
|
|
|
|
val rename: int -> term * term -> term * term
|
|
|
|
|
val deletion_message: rule -> unit
|
|
|
|
|
val non_orientable: term * term -> unit
|
|
|
|
|
val partition: ('a -> bool) -> 'a list -> 'a list * 'a list
|
|
|
|
|
val get_rule: int -> rule list -> rule
|
|
|
|
|
val kb_completion: (term * term -> bool) -> int -> rule list -> (term * term) list -> int * int -> (term * term) list -> rule list
|
|
|
|
|
val kb_complete: (term * term -> bool) -> rule list -> rule list -> unit
|
