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

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

@ -194,20 +194,20 @@ data LTE : Var n -> Var n -> Type where
export export
Reflexive (Var n) LTE where Reflexive (Var n) LTE where
reflexive {x = VZ} = LTEZ reflexive {x = VZ} = LTEZ
reflexive {x = VS i} = LTES $ reflexive {x=i} reflexive {x = VS i} = LTES $ reflexive {x = i}
export export
Transitive (Var n) LTE where Transitive (Var n) LTE where
transitive LTEZ q = LTEZ transitive LTEZ q = LTEZ
transitive (LTES p) (LTES q) = LTES $ transitive p q {rel=Var.LTE} transitive (LTES p) (LTES q) = LTES $ transitive p q {rel = Var.LTE}
export export
Antisymmetric (Var n) LTE where Antisymmetric (Var n) LTE where
antisymmetric LTEZ LTEZ = Refl antisymmetric LTEZ LTEZ = Refl
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)