proposition: Fact sandwich_confluent : diamond S -> confluent R.
proof: Proof. Proof using H1 H2. intros H3 % diamond_confluent. revert H3. apply diamond_ext, sandwich_equiv; auto. Qed.
imports: Morphisms FinFun Undecidability.HOU(std.tactics std.misc std.ars.basic)