Section EmbedPropInj.
Context {A : Type} `{ILA : ILogic A}.
Context {EmbOp1 : EmbedOp Prop A} {Emb1 : Embed Prop A}.
Context {EmbOp2 : EmbedOp Prop A} {Emb2 : Embed Prop A}.

Lemma emb_prop_eq (P : Prop) : @embed _ _ EmbOp1 P -|- @embed _ _ EmbOp2 P.