quox/golden-tests/tests/isprop-subsing/isprop-subsing.quox

5 lines
157 B
Text
Raw Normal View History

def0 IsProp : ★ → ★ = λ A ⇒ (x y : A) → x ≡ y : A
def0 feq : (A : ★) → (f g : IsProp A) → f ≡ g : IsProp A =
λ A f g ⇒ δ _ ⇒ f