rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

export isSubSing

Browse source
This commit is contained in:
rhiannon morris 2023-02-19 17:43:27 +01:00
parent 27e61011ac
commit 195791e158
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Quox/Equal.idr
View file

@ -80,7 +80,7 @@ parameters (defs : Definitions' q g)
||| * a pair type is a subsingleton if both its elements are. ||| * a pair type is a subsingleton if both its elements are.
||| * all equality types are subsingletons because uip is admissible by ||| * all equality types are subsingletons because uip is admissible by
||| boundary separation. ||| boundary separation.
private public export
isSubSing : Term q 0 n -> Bool isSubSing : Term q 0 n -> Bool
isSubSing ty = isSubSing ty =
let Element ty nc = whnfD defs ty in let Element ty nc = whnfD defs ty in