remove a believe_me
This commit is contained in:
parent
e1a9d99514
commit
e7272333cb
1 changed files with 8 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue