blob: 31f8e7b51dfd1bbc1f3f4799e9598c4137de12b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
type form=
Atom of int
| Arrow of form * form
| Bot
| Conjunct of form * form
| Disjunct of form * form
type proof =
Ax of int
| I_Arrow of proof
| E_Arrow of int*int*proof
| D_Arrow of int*proof*proof
| E_False of int
| I_And of proof*proof
| E_And of int*proof
| D_And of int*proof
| I_Or_l of proof
| I_Or_r of proof
| E_Or of int*proof*proof
| D_Or of int*proof
| Pop of int*proof
type state
val project: state -> proof
val init_state : ('a * form * 'b) list -> form -> state
val branching: state -> state list
val success: state -> bool
val pp: state -> Pp.std_ppcmds
val pr_form : form -> Pp.std_ppcmds
val reset_info : unit -> unit
val pp_info : unit -> unit
|
