Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Et et ou

Browse Source
This commit is contained in:
Adrien Vannson
2022-05-17 13:59:35 +02:00
parent a03a5f5504
commit 5d65bcdc36
2 changed files with 58 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/et.8pus
+26
View 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.
tests/ou.8pus
+32
View 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.