def zero_step

stelliferous@0.0.2.0 · proofs/word_encoding.bend:236

import Base

236def zero_step(+p: Nat, +b: Bool, +rest: Word(p), proof: {b == False{} : Bool} & {Word.cmp(p,rest,Word.zero(p)) == EQ{} : Cmp}, ih: {Word.cmp(p,
237      rest,Word.zero(p)) == EQ{} : Cmp} -> {rest == Word.zero(p) : Word(p)}) -> {WCon{b,rest} == Word.zero(1n+p) : Word(1n+p)}:
238  (head,tail) = proof
239  %Equal.sym(Bool,b,False{},head) : {WCon{_,rest} == Word.zero(1n+p) : Word(1n+p)}
240  %ih(tail) : {WCon{False{},rest} == WCon{False{},_} : Word(1n+p)}
241  {==}