2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-08-01 10:58:20 -07:00
|
|
|
|
|
|
|
|
definition f {A : Type} {B : Type} (f : A → B → Prop) ⦃C : Type⦄ {R : C → C → Prop} {c : C} (H : R c c) : R c c
|
|
|
|
|
:= H
|
|
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant g : Prop → Prop → Prop
|
|
|
|
|
constant H : true ∧ true
|
2014-08-01 10:58:20 -07:00
|
|
|
|
|
|
|
|
check f g H
|
