idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-19 17:21:59 +03:00
Code Issues Projects Releases Wiki Activity

[ cleanup ] heterogeneous eqTerm makes believe_me unnecessary

Browse Source
This commit is contained in:
Justus Matthiesen 2023-11-11 10:51:33 +00:00 committed by G. Allais
parent ba973531f7
commit 154dcec76f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,7 @@ sizeEq (TDelay _ _ t x) (TDelay _ _ t' x') = sizeEq t t' && sizeEq x x'
sizeEq (TForce _ _ t) (TForce _ _ t') = sizeEq t t'
sizeEq (PrimVal _ c) (PrimVal _ c') = c == c'
-- traverse dotted LHS terms
sizeEq t (Erased _ (Dotted t')) = believe_me t == t' -- t' is no longer a pattern
sizeEq t (Erased _ (Dotted t')) = eqTerm t t' -- t' is no longer a pattern
sizeEq (TType _ _) (TType _ _) = True
sizeEq _ _ = False