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

fix fixities

Browse source
This commit is contained in:
rhiannon morris 2023-03-02 19:56:16 +01:00
parent fc3c2dc8ab
commit 0a2d05818e
4 changed files with 4 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Quox/Context.idr
View file

@ -12,7 +12,6 @@ import Control.Monad.Identity
%default total %default total
infixl 5 :<
||| a sequence of bindings under an existing context. each successive element ||| a sequence of bindings under an existing context. each successive element
||| has one more bound variable, which correspond to all previous elements ||| has one more bound variable, which correspond to all previous elements
||| as well as the surrounding context. ||| as well as the surrounding context.
@ -63,7 +62,6 @@ toList' : Telescope' a _ _ -> List a
toList' = map snd . toList toList' = map snd . toList
infixl 9 .
public export public export
(.) : Telescope tm from mid -> Telescope tm mid to -> Telescope tm from to (.) : Telescope tm from mid -> Telescope tm mid to -> Telescope tm from to
tel1 . [<] = tel1 tel1 . [<] = tel1

2
lib/Quox/Syntax/DimEq.idr
View file

@ -98,7 +98,7 @@ equal ZeroIsOne p q = True
equal (C eqs) p q = get eqs p == get eqs q equal (C eqs) p q = get eqs p == get eqs q
infixl 5 :<? infixl 7 :<?
export %inline export %inline
(:<?) : DimEq d -> Maybe (Dim d) -> DimEq (S d) (:<?) : DimEq d -> Maybe (Dim d) -> DimEq (S d)
ZeroIsOne :<? d = ZeroIsOne ZeroIsOne :<? d = ZeroIsOne

11
lib/Quox/Syntax/Shift.idr
View file

@ -144,7 +144,6 @@ shiftViaNatCorrect (SS by) i (LTESucc p) = cong VS $ shiftViaNatCorrect by i p
%transform "Shift.shift" shift = shiftViaNat %transform "Shift.shift" shift = shiftViaNat
infixl 9 .
public export public export
(.) : Shift from mid -> Shift mid to -> Shift from to (.) : Shift from mid -> Shift mid to -> Shift from to
by . SZ = by by . SZ = by
@ -154,14 +153,10 @@ private
0 compNatProof : (by : Shift from mid) -> (bz : Shift mid to) -> 0 compNatProof : (by : Shift from mid) -> (bz : Shift mid to) ->
to = by.nat + bz.nat + from to = by.nat + bz.nat + from
compNatProof by bz = compNatProof by bz =
shiftDiff bz >>> trans (shiftDiff bz) $
cong (bz.nat +) (shiftDiff by) >>> trans (cong (bz.nat +) (shiftDiff by)) $
plusAssociative bz.nat by.nat from >>> trans (plusAssociative bz.nat by.nat from) $
cong (+ from) (plusCommutative bz.nat by.nat) cong (+ from) (plusCommutative bz.nat by.nat)
where
infixr 0 >>>
0 (>>>) : a = b -> b = c -> a = c
x >>> y = trans x y
private %inline private %inline
compViaNat' : (by : Shift from mid) -> (bz : Shift mid to) -> compViaNat' : (by : Shift from mid) -> (bz : Shift mid to) ->

2
lib/Quox/Syntax/Subst.idr
View file

@ -12,7 +12,6 @@ import Data.Vect
%default total %default total
infixr 5 :::
public export public export
data Subst : (Nat -> Type) -> Nat -> Nat -> Type where data Subst : (Nat -> Type) -> Nat -> Nat -> Type where
Shift : Shift from to -> Subst env from to Shift : Shift from to -> Subst env from to
@ -60,7 +59,6 @@ shift : (by : Nat) -> Subst env from (by + from)
shift by = Shift $ fromNat by shift by = Shift $ fromNat by
infixl 9 .
public export public export
(.) : CanSubstSelf f => Subst f from mid -> Subst f mid to -> Subst f from to (.) : CanSubstSelf f => Subst f from mid -> Subst f mid to -> Subst f from to
Shift by . Shift bz = Shift $ by . bz Shift by . Shift bz = Shift $ by . bz