Tests

tests/test01.8pus

@@ -0,0 +1,5 @@
+(A -> B -> C) -> (B -> A -> C)
+intro f.
+intro b.
+intro a.
+apply f.

tests/test04.8pus

@@ -0,0 +1,7 @@
+(A -> B) -> (B -> C) -> A -> C
+intro f.
+intro g.
+intro a.
+apply g.
+apply f.
+assumption.

tests/test05.8pus

@@ -0,0 +1 @@
+((A -> A) -> B) -> B

tests/test06.8pus

@@ -0,0 +1 @@
+(A -> B -> C) -> (A -> B) -> A -> C

tests/test07.8pus

@@ -0,0 +1 @@
+A -> ~(~A)

tests/test08.8pus

@@ -0,0 +1 @@
+(A -> B) -> ~B -> ~A