eqt>

Theorem.

Arguments:

a (obj), b (obj), c (obj),

Assertions:

((aeqb)to((clea)leftrightarrow(cleb)))

Proof:

Hyp Ref Line Expr
ax-tr1((clea)to((aleb)to(cleb)))
1com12i2((aleb)to((clea)to(cleb)))
ax-tr3((cleb)to((blea)to(clea)))
3com12i4((blea)to((cleb)to(clea)))
2, 4im.bldan<>5(((aleb)wedge(blea))to(((clea)to(cleb))wedge((cleb)to(clea))))
df-equ6((aeqb)leftrightarrow((aleb)wedge(blea)))
dfbi7(((clea)leftrightarrow(cleb))leftrightarrow(((clea)to(cleb))wedge((cleb)to(clea))))
5, 6, 7<imtr8((aeqb)to((clea)leftrightarrow(cleb)))