blob: 06a6f1c68022aa1f267a821e185f53572402cec2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
abstract Proof = Formula ** {
cat
Text ;
Proof ;
[Formula] ;
fun
Start : [Formula] -> Formula -> Proof -> Text ;
Hypo : Proof ;
Implic : [Formula] -> Formula -> Proof -> Proof ;
RedAbs : Formula -> Proof -> Proof ;
ExFalso : Formula -> Proof ;
ConjSplit : Formula -> Formula -> Formula -> Proof -> Proof ;
ModPon : [Formula] -> Formula -> Proof -> Proof ;
Forget : [Formula] -> Formula -> Proof -> Proof ;
DeMorgan1, DeMorgan2 : Formula -> Formula -> Proof -> Proof ;
ImplicNeg : [Formula] -> Formula -> Proof -> Proof ;
NegRewrite : Formula -> [Formula] -> Proof -> Proof ;
}
|
