Skip to main content

🐆 Tx_rollup_services.v

Proofs

See code, Gitlab , OCaml

Require Import CoqOfOCaml.CoqOfOCaml.
Require Import CoqOfOCaml.Settings.

Require Import TezosOfOCaml.Proto_alpha.Environment.

Require TezosOfOCaml.Proto_alpha.Environment.Proofs.Data_encoding.
Require TezosOfOCaml.Proto_alpha.Environment.Proofs.RPC_service.

Require TezosOfOCaml.Proto_alpha.Tx_rollup_services.

Require TezosOfOCaml.Proto_alpha.Proofs.Raw_level_repr.
Require TezosOfOCaml.Proto_alpha.Proofs.Tez_repr.
Require TezosOfOCaml.Proto_alpha.Proofs.Tx_rollup_state_repr.

Module S.
  Lemma state_value_is_valid :
    RPC_service.Valid.t (fun _True) (fun _True)
      Tx_rollup_state_repr.Valid.t
      Tx_rollup_services.S.state_value.
  Proof.
    RPC_service.rpc_auto;
    intros [] []; repeat split; trivial.
  Qed.
End S.