diff options
Diffstat (limited to 'contrib/cc/ccproof.mli')
| -rw-r--r-- | contrib/cc/ccproof.mli | 30 |
1 files changed, 8 insertions, 22 deletions
diff --git a/contrib/cc/ccproof.mli b/contrib/cc/ccproof.mli index 887ed070..abdd6fea 100644 --- a/contrib/cc/ccproof.mli +++ b/contrib/cc/ccproof.mli @@ -6,40 +6,26 @@ (* * 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 9151 2006-09-19 13:32:22Z corbinea $ *) open Ccalgo open Names +open Term type proof = - Ax of identifier - | SymAx of identifier + Ax of constr + | SymAx of constr | Refl of term | Trans of proof * 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 ] + (constr, (term * term)) Hashtbl.t -> proof -> term * term |