proposition: Theorem converse_to_commute_effObs : forall A1 A2 c1 c2, proj1_sig (θ ⟨ A1, A2 ⟩) ⟨ c1, c2 ⟩ = proj1_sig (θ' ⟨ A1, A2 ⟩) ⟨ c1, c2 ⟩.
proof: Proof. move=> A1 A2 //= c1 c2. apply releffobs_eq_effobs1. Qed.
imports: Coq(ssreflect ssrfun ssrbool) Coq(Relation_Definitions Morphisms) Mon(SPropBase SPropMonadicStructures MonadExamples SpecificationMonads DijkstraMonadExamples) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples)