~/jendhub

def h.at1_put

bend-kit-collections@0.1.4.1 · PROOF.bend:1996

import bend-kit-collections@0.1.4.1/PROOF.bend as PROOF
import Base

1996def h.at1_put(p: Nat, t: Word(p), c: Bool, e: {h.at1(1n+p, WCon{c, t}) == True{} : Bool})
1997  -> {h.at1(p, Word.shl.put(p, c, t)) == True{} : Bool}:
1998  match p:
1999    case 0n:
2000      {==}
2001    case 1n+q:
2002      match t:
2003        case WCon{b, t2}:
2004          match c:
2005            case True{}:
2006              h.at1_put.t(q, b, t2, e)
2007            case False{}:
2008              h.at1_put(q, t2, b, e)

Uses (7)

Used by (1)