diff options
| author | corbinea | 2005-08-17 12:56:38 +0000 |
|---|---|---|
| committer | corbinea | 2005-08-17 12:56:38 +0000 |
| commit | 8cb5e072d095981aa0664ca9b6f3db8983e18437 (patch) | |
| tree | 4d44ddfc3e4347a2a0a61333cc174a95f91c40f0 /contrib/cc/ccproof.mli | |
| parent | ff32659bc1fceaaa34f346a75de571c6e60ee9ca (diff) | |
new congruence
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7298 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/cc/ccproof.mli')
| -rw-r--r-- | contrib/cc/ccproof.mli | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/contrib/cc/ccproof.mli b/contrib/cc/ccproof.mli index 363a1c402d..456d13e4b5 100644 --- a/contrib/cc/ccproof.mli +++ b/contrib/cc/ccproof.mli @@ -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 |