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

Merge remote-tracking branch 'origin/master'

Browse Source
This commit is contained in:
Mysaa 2022-05-18 00:53:28 +02:00
commit 245133b276
Signed by: Mysaa
GPG Key ID: 7054D5D6A90F084F
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
tests/irrefutabilite-peirce.8pus Normal file
View File

@ -0,0 +1,38 @@
~~(((A -> B) -> A) -> A)
intro peirce.
cut ~~(A \/ ~A).
intro te.
apply te.
intro te2.
elim te2.
intro a.
cut ~A.
intro f.
apply f.
assumption.
intro a2.
apply peirce.
intro f.
assumption.
intro na.
apply peirce.
intro f.
apply f.
intro a.
cut False.
intro false.
elim false.
apply na.
assumption.
intro f.
cut ~A.
intro f2.
cut A \/ ~A.
assumption.
right.
assumption.
intro a.
cut A \/ ~A.
assumption.
left.
assumption.