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

more formatting stuff

Browse source
This commit is contained in:
rhiannon morris 2022-02-27 01:49:42 +01:00
parent e264a18e21
commit c653fcb664
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Quox/Syntax/Var.idr
View file

@ -207,7 +207,7 @@ Antisymmetric (Var n) LTE where
antisymmetric (LTES p) (LTES q) = cong VS $ antisymmetric p q {rel = Var.LTE} antisymmetric (LTES p) (LTES q) = cong VS $ antisymmetric p q {rel = Var.LTE}
export export
splitLTE : {j : Var n} -> i `Var.LTE` j -> Either (i = j) (i `Var.LT` j) splitLTE : {j : Var n} -> i `LTE` j -> Either (i = j) (i `LT` j)
splitLTE {j = VZ} LTEZ = Left Refl splitLTE {j = VZ} LTEZ = Left Refl
splitLTE {j = VS _} LTEZ = Right LTZ splitLTE {j = VS _} LTEZ = Right LTZ
splitLTE (LTES p) with (splitLTE p) splitLTE (LTES p) with (splitLTE p)