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.