eqt<>d2r

Theorem.

Arguments:

a (obj), b (obj), c (obj), d (obj), phi (pr), psi (pr),

Hypotheses:

(psito(ceqd))
(phito(aeqb))

Assertions:

((psiwedgephi)to((aeqc)leftrightarrow(beqd)))

Proof:

Hyp Ref Line Expr
Hypo1(psito(ceqd))
2(phito(aeqb))
1, 2eqt<>d23((phiwedgepsi)to((aeqc)leftrightarrow(beqd)))
3ancom4((psiwedgephi)to((aeqc)leftrightarrow(beqd)))