Et et ou
This commit is contained in:
parent
a03a5f5504
commit
5d65bcdc36
26
tests/et.8pus
Normal file
26
tests/et.8pus
Normal file
@ -0,0 +1,26 @@
|
||||
( (A /\ B) /\ C -> A /\ (B /\ C) ) /\ ( A /\ (B /\ C) -> (A /\ B) /\ C )
|
||||
split.
|
||||
intro et.
|
||||
elim et.
|
||||
intro ab.
|
||||
intro c.
|
||||
elim ab.
|
||||
intro a.
|
||||
intro b.
|
||||
split.
|
||||
assumption.
|
||||
split.
|
||||
assumption.
|
||||
assumption.
|
||||
intro et.
|
||||
elim et.
|
||||
intro a.
|
||||
intro bc.
|
||||
elim bc.
|
||||
intro b.
|
||||
intro c.
|
||||
split.
|
||||
split.
|
||||
assumption.
|
||||
assumption.
|
||||
assumption.
|
||||
32
tests/ou.8pus
Normal file
32
tests/ou.8pus
Normal file
@ -0,0 +1,32 @@
|
||||
(A \/ (B \/ C) -> (A \/ B) \/ C) /\ ((A \/ B) \/ C -> A \/ (B \/ C))
|
||||
split.
|
||||
intro ou.
|
||||
elim ou.
|
||||
intro a.
|
||||
left.
|
||||
left.
|
||||
assumption.
|
||||
intro bc.
|
||||
elim bc.
|
||||
intro b.
|
||||
left.
|
||||
right.
|
||||
assumption.
|
||||
intro c.
|
||||
right.
|
||||
assumption.
|
||||
intro ou.
|
||||
elim ou.
|
||||
intro ab.
|
||||
elim ab.
|
||||
intro a.
|
||||
left.
|
||||
assumption.
|
||||
intro b.
|
||||
right.
|
||||
left.
|
||||
assumption.
|
||||
intro c.
|
||||
right.
|
||||
right.
|
||||
assumption.
|
||||
Loading…
x
Reference in New Issue
Block a user