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

renaming etc in closure stuff

Browse source
This commit is contained in:
rhiannon morris 2021-09-25 20:14:13 +02:00
parent eae97a7b9d
commit a5b07672ae
1 changed files with 42 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
src/Quox/Syntax/Term.idr
View file

@ -259,29 +259,46 @@ comp' : DSubst dfrom dto -> TSubst dfrom from mid -> TSubst dto mid to ->
comp' th ps ph = map (/// th) ps . ph comp' th ps ph = map (/// th) ps . ph
||| true if an elimination has a closure or dimension closure at the top level mutual
public export %inline ||| true if a term has a closure or dimension closure at the top level,
topCloE : Elim d n -> Bool ||| or is `E` applied to such an elimination
topCloE (CloE _ _) = True public export %inline
topCloE (DCloE _ _) = True topCloT : Term d n -> Bool
topCloE _ = False topCloT (CloT _ _) = True
topCloT (DCloT _ _) = True
topCloT (E e) = topCloE e
topCloT _ = False
||| true if a term has a closure or dimension closure at the top level, ||| true if an elimination has a closure or dimension closure at the top level
||| or is `E` applied to such an elimination public export %inline
public export %inline topCloE : Elim d n -> Bool
topCloT : Term d n -> Bool topCloE (CloE _ _) = True
topCloT (CloT _ _) = True topCloE (DCloE _ _) = True
topCloT (DCloT _ _) = True topCloE _ = False
topCloT (E e) = topCloE e
topCloT _ = False
||| an elimination which is not a top level closure
public export NotCloElim : Nat -> Nat -> Type public export IsNotCloT : Term d n -> Type
NotCloElim d n = Subset (Elim d n) $ So . not . topCloE IsNotCloT = So . not . topCloT
||| a term which is not a top level closure ||| a term which is not a top level closure
public export NotCloTerm : Nat -> Nat -> Type public export NotCloTerm : Nat -> Nat -> Type
NotCloTerm d n = Subset (Term d n) $ So . not . topCloT NotCloTerm d n = Subset (Term d n) IsNotCloT
public export IsNotCloE : Elim d n -> Type
IsNotCloE = So . not . topCloE
||| an elimination which is not a top level closure
public export NotCloElim : Nat -> Nat -> Type
NotCloElim d n = Subset (Elim d n) IsNotCloE
public export %inline
ncloT : (t : Term d n) -> (0 _ : IsNotCloT t) => NotCloTerm d n
ncloT t = Element t %search
public export %inline
ncloE : (t : Elim d n) -> (0 _ : IsNotCloE t) => NotCloElim d n
ncloE e = Element e %search
mutual mutual
@ -301,13 +318,13 @@ mutual
pushSubstsT' : DSubst dfrom dto -> TSubst dto from to -> pushSubstsT' : DSubst dfrom dto -> TSubst dto from to ->
Term dfrom from -> NotCloTerm dto to Term dfrom from -> NotCloTerm dto to
pushSubstsT' th ph (TYPE l) = pushSubstsT' th ph (TYPE l) =
Element (TYPE l) Oh ncloT $ TYPE l
pushSubstsT' th ph (Pi qty qtm x a b) = pushSubstsT' th ph (Pi qty qtm x a b) =
Element (Pi qty qtm x (subs a th ph) (subs b th (push ph))) Oh ncloT $ Pi qty qtm x (subs a th ph) (subs b th (push ph))
pushSubstsT' th ph (Lam x t) = pushSubstsT' th ph (Lam x t) =
Element (Lam x $ subs t th $ push ph) Oh ncloT $ Lam x $ subs t th $ push ph
pushSubstsT' th ph (E e) = pushSubstsT' th ph (E e) =
let Element e prf = pushSubstsE' th ph e in Element (E e) prf let Element e _ = pushSubstsE' th ph e in ncloT $ E e
pushSubstsT' th ph (CloT s ps) = pushSubstsT' th ph (CloT s ps) =
pushSubstsT' th (comp' th ps ph) s pushSubstsT' th (comp' th ps ph) s
pushSubstsT' th ph (DCloT s ps) = pushSubstsT' th ph (DCloT s ps) =
@ -317,13 +334,13 @@ mutual
pushSubstsE' : DSubst dfrom dto -> TSubst dto from to -> pushSubstsE' : DSubst dfrom dto -> TSubst dto from to ->
Elim dfrom from -> NotCloElim dto to Elim dfrom from -> NotCloElim dto to
pushSubstsE' th ph (F x) = pushSubstsE' th ph (F x) =
Element (F x) Oh ncloE $ F x
pushSubstsE' th ph (B i) = pushSubstsE' th ph (B i) =
assert_total pushSubstsE $ ph !! i assert_total pushSubstsE $ ph !! i
pushSubstsE' th ph (f :@ s) = pushSubstsE' th ph (f :@ s) =
Element (subs f th ph :@ subs s th ph) Oh ncloE $ subs f th ph :@ subs s th ph
pushSubstsE' th ph (s :# a) = pushSubstsE' th ph (s :# a) =
Element (subs s th ph :# subs a th ph) Oh ncloE $ subs s th ph :# subs a th ph
pushSubstsE' th ph (CloE e ps) = pushSubstsE' th ph (CloE e ps) =
pushSubstsE' th (comp' th ps ph) e pushSubstsE' th (comp' th ps ph) e
pushSubstsE' th ph (DCloE e ps) = pushSubstsE' th ph (DCloE e ps) =