proposition: Lemma commutativity_Primitive_Corecursion_fst_snd (BT: BT_coalgebroid) (x:BT.(bs_states)) : fst (Str.(transition) (Corecursor BT x)) = fst (lift_B_ _ _ (prim_corec_tupling _ (Corecursor BT)) (BT.(bs_transition) x)) /\ snd (Str.(transition) (Corecursor BT x)) (=) snd (lift_B_ _ _ (prim_corec_tupling _ (Corecursor BT)) (BT.(bs_transition) x)).
proof: Proof. apply -> rel_image_lift_F_Str_bisimilar_spelled. apply commutativity_Corecursor_rel_image_lifting. Qed.
imports: IntensionalLambdaBisimulation ZStreamCoalgebra ZArith