remove a believe_me

2022-11-01 21:05:04 +01:00 · 2022-11-01 21:05:04 +01:00 · e7272333cb
parent e1a9d99514
commit e7272333cb
1 changed files with 8 additions and 1 deletions
--- a/lib/Quox/Syntax/Shift.idr
+++ b/lib/Quox/Syntax/Shift.idr
@ -110,7 +110,14 @@ export
 ssDownEqv SZ      = EqSS EqSZ
 ssDownEqv (SS by) = EqSS $ ssDownEqv by

-%transform "Shift.ssDown" ssDown by = believe_me (SS by)
+private
+ssDownViaNat : Shift (S from) to -> Shift from to
+ssDownViaNat by =
+  rewrite shiftDiff by in
+  rewrite sym $ plusSuccRightSucc by.nat from in
+  fromNat $ S by.nat
+
+%transform "Shift.ssDown" ssDown = ssDownViaNat


 public export