Section Bi.
Variables X Y: Type.
Variable TX: reduction_t A X.
Variable TY: reduction_t A Y.
(** Quantifications on both sides of a relation *)
Definition bisimulation R := simulation  TX TY R /\ simulation TY TX (trans R).
Definition expansion    R := expansion1  TX TY R /\ simulation TY TX (trans R).
Definition wexpansion   R := wexpansion1 TX TY R /\ simulation TY TX (trans R).
(** Definition of the co-inductive relations as `greatest relations such that' *)
Definition bisim   := union_st bisimulation.
Definition expand  := union_st expansion.
Definition wexpand := union_st wexpansion.

Lemma wexpansion_wexpand: wexpansion wexpand.