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

Irrefutabilite de la loi de Peirce

Browse Source
This commit is contained in:
Adrien Vannson 2022-05-17 17:26:01 +02:00
parent 0f7a24ae49
commit bbfdad1b78
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
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.