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

make some things private

Browse source
This commit is contained in:
rhiannon morris 2023-08-24 17:45:20 +02:00
parent 09e39d6224
commit 688204f1a4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Quox/Reduce.idr
View file

@ -219,23 +219,23 @@ mutual
isRedexT _ _ = False isRedexT _ _ = False
public export private
tycaseRhs : (k : TyConKind) -> TypeCaseArms d n -> tycaseRhs : (k : TyConKind) -> TypeCaseArms d n ->
Maybe (ScopeTermN (arity k) d n) Maybe (ScopeTermN (arity k) d n)
tycaseRhs k arms = lookupPrecise k arms tycaseRhs k arms = lookupPrecise k arms
public export private
tycaseRhsDef : Term d n -> (k : TyConKind) -> TypeCaseArms d n -> tycaseRhsDef : Term d n -> (k : TyConKind) -> TypeCaseArms d n ->
ScopeTermN (arity k) d n ScopeTermN (arity k) d n
tycaseRhsDef def k arms = fromMaybe (SN def) $ tycaseRhs k arms tycaseRhsDef def k arms = fromMaybe (SN def) $ tycaseRhs k arms
public export private
tycaseRhs0 : (k : TyConKind) -> TypeCaseArms d n -> tycaseRhs0 : (k : TyConKind) -> TypeCaseArms d n ->
(0 eq : arity k = 0) => Maybe (Term d n) (0 eq : arity k = 0) => Maybe (Term d n)
tycaseRhs0 k arms {eq} with (tycaseRhs k arms) | (arity k) tycaseRhs0 k arms {eq} with (tycaseRhs k arms) | (arity k)
tycaseRhs0 k arms {eq = Refl} | res | 0 = map (.term) res tycaseRhs0 k arms {eq = Refl} | res | 0 = map (.term) res
public export private
tycaseRhsDef0 : Term d n -> (k : TyConKind) -> TypeCaseArms d n -> tycaseRhsDef0 : Term d n -> (k : TyConKind) -> TypeCaseArms d n ->
(0 eq : arity k = 0) => Term d n (0 eq : arity k = 0) => Term d n
tycaseRhsDef0 def k arms = fromMaybe def $ tycaseRhs0 k arms tycaseRhsDef0 def k arms = fromMaybe def $ tycaseRhs0 k arms