2014-09-26 16:42:31 +00:00
|
|
|
import data.nat.basic data.prod
|
2014-09-03 23:00:38 +00:00
|
|
|
open nat prod
|
2014-08-21 23:42:59 +00:00
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant R : nat → nat → Prop
|
|
|
|
constant f (a b : nat) (H : R a b) : nat
|
2014-08-21 23:42:59 +00:00
|
|
|
axiom Rtrue (a b : nat) : R a b
|
|
|
|
|
|
|
|
|
|
|
|
check f 1 0 (Rtrue (pr1 (pair 1 0)) 0)
|