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