2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
|
|
|
|
variable P : Int -> Int -> Int -> Bool
|
|
|
|
|
axiom Ax1 : exists x y z, P x y z
|
|
|
|
|
axiom Ax2 : forall x y z, not (P x y z)
|
|
|
|
|
theorem T : false :=
|
2014-01-06 03:10:21 +00:00
|
|
|
exists::elim Ax1 (fun a H1, exists::elim H1 (fun b H2, exists::elim H2 (fun (c : Int) (H3 : P a b c),
|
|
|
|
|
let notH3 : not (P a b c) := forall::elim (forall::elim (forall::elim Ax2 a) b) c
|
|
|
|
|
in absurd H3 notH3)))
|
