proposition: Lemma sub_succ_pred m n : sub n (Uint63.succ m) = Uint63.pred (sub n m).
proof: Proof. apply Uint63.to_Z_inj. rewrite Uint63.sub_spec Uint63.succ_spec Uint63.pred_spec Uint63.sub_spec. rewrite Zminus_mod Zmod_mod -Zminus_mod Z.sub_add_distr. apply/esym. by rewrite Zminus_mod Zmod_mod -Zminus_mod. Qed.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib PrimInt63