Skip to main content

🎫 Ticket_hash_repr.v

Proofs

See code, Gitlab , OCaml

[encoding] function is valid
Lemma encoding_is_valid :
  Data_encoding.Valid.t (fun _True) Ticket_hash_repr.encoding.
Proof.
  Data_encoding.Valid.data_encoding_auto.
Qed.
#[global] Hint Resolve encoding_is_valid : Data_encoding_db.

[compare] function is valid
Lemma compare_is_valid :
  Compare.Valid.t (fun _True) id Ticket_hash_repr.compare.
Proof.
  apply Blake2B.Make_is_valid.
Qed.
#[global] Hint Resolve compare_is_valid : Compare_db.

The index [Index] is valid.
Lemma Index_is_valid :
  Storage_description.INDEX.Valid.t (fun _True) Ticket_hash_repr.Index.
Proof.
  constructor; simpl; try apply Blake2B.Make_is_valid.
  apply Path_encoding.Make_hex_is_valid.
  constructor; apply Blake2B.Make_is_valid.
Qed.