functions returning subsings are also subsings

This commit is contained in:
rhiannon morris 2024-06-02 17:35:56 +02:00
parent 68c414a941
commit f00c802336
3 changed files with 8 additions and 0 deletions

View file

@ -0,0 +1,2 @@
0.IsProp : 1.★ → ★
0.feq : 1.(A : ★) → 1.(f : IsProp A) → 1.(g : IsProp A) → f ≡ g : IsProp A

View file

@ -0,0 +1,4 @@
def0 IsProp : ★ → ★ = λ A ⇒ (x y : A) → x ≡ y : A
def0 feq : (A : ★) → (f g : IsProp A) → f ≡ g : IsProp A =
λ A f g ⇒ δ _ ⇒ f

View file

@ -0,0 +1,2 @@
. ../lib.sh
check "$1" isprop-subsing.quox