import data.prod
open nat prod

constant R : nat → nat → Prop
constant f (a b : nat) (H : R a b) : nat
axiom Rtrue (a b : nat) : R a b


check f 1 0 (Rtrue (pr1 (pair 1 (0:nat))) 0)