Section expec_ctors.
Variables (T: Set) (f: T -> nat).
End expec_ctors.
(* misc expec *)
Add Parametric Morphism (A: Set): (@expec A)
with signature (@ext_eq A nat) ==> (@ext_eq (ne_tree.T A) R)
as expec_ext_morph.

Lemma Rmult_INR1_id: ext_eq (Rmult (INR 1)) (@id R).