Sparse-entry replacement — proof internals

theorem Complexity.RAM.RegisterStore.Machine.entryReplaceCleanupTM_hoareTime_frame_internal {n : ℕ} (tapes : EntryReplaceTapes n) (entry : Entry) (newValue : ℕ) (rest queryBits emitted : List Bool) (initialWork matchedWork : Fin n → Tape) (inp₀ out₀ : Tape) (hmatch : ReadableEntryMatch tapes.entry entry rest queryBits initialWork matchedWork) (hreplacement : (matchedWork tapes.replacement).HasBinaryNat newValue) (hinput : TM.Parked inp₀) (houtput : out₀.HasBinaryPrefix emitted) : (entryReplaceCleanupTM tapes).HoareTime (fun (inp : Tape) (work : Fin n → Tape) (out : Tape) => inp = inp₀ ∧ work = matchedWork ∧ out = out₀) (fun (inp : Tape) (work : Fin n → Tape) (out : Tape) => inp = inp₀ ∧ EntryScanReady tapes.entry rest queryBits initialWork work ∧ work tapes.replacement = matchedWork tapes.replacement ∧ out.HasBinaryPrefix (emitted ++ Entry.encode (entry.1, newValue))) (entryReplaceCleanupTime tapes entry newValue queryBits initialWork matchedWork)