2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-08-01 17:58:20 +00: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 23:20:52 +00:00
|
|
|
constant g : Prop → Prop → Prop
|
|
|
|
|
constant H : true ∧ true
|
2014-08-01 17:58:20 +00:00
|
|
|
|
|
|
|
|
check f g H
|
