lemma
proved
term proof
post_monotone
show as:
view Lean formalization →
formal statement (Lean)
664private lemma post_monotone {d : Nat} (L : LedgerState d) (k : Fin d) (side : Side) :
665 MonotoneLedger (d := d) L (post L k side) := by
proof body
Term-mode proof.
666 classical
667 cases side with
668 | debit =>
669 refine ⟨?_, ?_⟩
670 · intro i
671 by_cases hik : i = k
672 · subst hik
673 simp [post]
674 · simp [post, hik]
675 · intro i
676 simp [post]
677 | credit =>
678 refine ⟨?_, ?_⟩
679 · intro i
680 simp [post]
681 · intro i
682 by_cases hik : i = k
683 · subst hik
684 simp [post]
685 · simp [post, hik]
686