diff options
Diffstat (limited to 'contrib/cc/ccproof.mli')
| -rw-r--r-- | contrib/cc/ccproof.mli | 25 |
1 files changed, 5 insertions, 20 deletions
diff --git a/contrib/cc/ccproof.mli b/contrib/cc/ccproof.mli index 887ed070..18c745bf 100644 --- a/contrib/cc/ccproof.mli +++ b/contrib/cc/ccproof.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: ccproof.mli,v 1.6.2.1 2004/07/16 19:29:59 herbelin Exp $ *) +(* $Id: ccproof.mli 7298 2005-08-17 12:56:38Z corbinea $ *) open Ccalgo open Names @@ -19,27 +19,12 @@ type proof = | Congr of proof * proof | Inject of proof * constructor * int * int -val pcongr : proof * proof -> proof -val ptrans : proof * proof -> proof -val psym : proof -> proof -val pcongr : proof * proof -> proof - val build_proof : - UF.t -> - [ `Discriminate of int * int * int * int - | `Prove_goal of int * int - | `Refute_hyp of int * int ] - -> proof + forest -> + [ `Discr of int * pa_constructor * int * pa_constructor + | `Prove of int * int ] -> proof val type_proof : - (identifier * (term * term)) list -> proof -> term * term - -val cc_proof : - (identifier * (term * term)) list -> - (identifier * (term * term)) list -> - (term * term) option -> - [ `Discriminate of constructor * proof - | `Prove_goal of proof - | `Refute_hyp of identifier * proof ] + (identifier, (term * term)) Hashtbl.t -> proof -> term * term |