Definition equiv {X} (m1 m2 : Poram X) : Prop :=
  poram_lift2
    state_equiv
    state_equiv
    eq m1 m2.

(* Specifications: *)
Lemma equiv_implies_poram_equiv {X} (m1 m2 : Poram X) : equiv m1 m2 -> poram_equiv eq m1 m2.
Lemma equiv_implies_poram_equiv {X} (m1 m2 : Poram X) : equiv m1 m2 -> poram_equiv eq m1 m2.