idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-20 01:41:44 +03:00
Code Issues Projects Releases Wiki Activity

Cleanup of sizeEq (#3138)

Browse Source
This commit is contained in:
Justus Matthiesen 2023-11-09 13:59:53 +00:00 committed by GitHub
parent 7c87005092
commit db4c5e7fbb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Core/Termination/CallGraph.idr
View File

@ -20,14 +20,15 @@ Show Guardedness where
show Guarded = "Guarded" show Guarded = "Guarded"
show InDelay = "InDelay" show InDelay = "InDelay"
sizeEq : Term vars -> -- RHS sizeEq : {auto 0 cv : CompatibleVars rhsVars lhsVars} ->
Term vars -> -- LHS: may contain dot-patterns, try both sides of as patterns Term rhsVars -> -- RHS
Bool Term lhsVars -> -- LHS: may contain dot-patterns, try both sides of as patterns
Bool
sizeEq (Local _ _ idx _) (Local _ _ idx' _) = idx == idx' sizeEq (Local _ _ idx _) (Local _ _ idx' _) = idx == idx'
sizeEq (Ref _ _ n) (Ref _ _ n') = n == n' sizeEq (Ref _ _ n) (Ref _ _ n') = n == n'
sizeEq (Meta _ _ i args) (Meta _ _ i' args') sizeEq (Meta _ _ i args) (Meta _ _ i' args')
= i == i' && assert_total (all (uncurry sizeEq) (zip args args')) = i == i' && assert_total (all (uncurry sizeEq) (zip args args'))
sizeEq (Bind _ _ b sc) (Bind _ _ b' sc') = eqBinderBy sizeEq b b' && sizeEq sc (believe_me sc') sizeEq (Bind _ _ b sc) (Bind _ _ b' sc') = eqBinderBy sizeEq b b' && sizeEq sc sc'
sizeEq (App _ f a) (App _ f' a') = sizeEq f f' && sizeEq a a' sizeEq (App _ f a) (App _ f' a') = sizeEq f f' && sizeEq a a'
sizeEq (As _ _ a p) p' = sizeEq p p' sizeEq (As _ _ a p) p' = sizeEq p p'
sizeEq p (As _ _ a p') = sizeEq p a || sizeEq p p' sizeEq p (As _ _ a p') = sizeEq p a || sizeEq p p'
@ -36,8 +37,7 @@ sizeEq (TDelay _ _ t x) (TDelay _ _ t' x') = sizeEq t t' && sizeEq x x'
sizeEq (TForce _ _ t) (TForce _ _ t') = sizeEq t t' sizeEq (TForce _ _ t) (TForce _ _ t') = sizeEq t t'
sizeEq (PrimVal _ c) (PrimVal _ c') = c == c' sizeEq (PrimVal _ c) (PrimVal _ c') = c == c'
-- traverse dotted LHS terms -- traverse dotted LHS terms
sizeEq t (Erased _ (Dotted t')) = sizeEq t t' sizeEq t (Erased _ (Dotted t')) = believe_me t == t' -- t' is no longer a pattern
sizeEq (Erased _ i) (Erased _ i') = i == i'
sizeEq (TType _ _) (TType _ _) = True sizeEq (TType _ _) (TType _ _) = True
sizeEq _ _ = False sizeEq _ _ = False