let x, y, c be non pair set ; not InputVertices (BorrowStr x,y,c) is with_pair
set M = BorrowStr x,y,c;
set MI = BorrowIStr x,y,c;
set S = 1GateCircStr <*[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]*>,or3 ;
given xx being pair set such that A1:
xx in InputVertices (BorrowStr x,y,c)
; FACIRC_1:def 2 contradiction
A2:
1GateCircStr <*x,y*>,and2a tolerates 1GateCircStr <*y,c*>,and2
by CIRCCOMB:55;
A3:
( InnerVertices (1GateCircStr <*x,c*>,and2a ) = {[<*x,c*>,and2a ]} & (1GateCircStr <*x,y*>,and2a ) +* (1GateCircStr <*y,c*>,and2 ) tolerates 1GateCircStr <*x,c*>,and2a )
by CIRCCOMB:49, CIRCCOMB:55;
( InnerVertices (1GateCircStr <*x,y*>,and2a ) = {[<*x,y*>,and2a ]} & InnerVertices (1GateCircStr <*y,c*>,and2 ) = {[<*y,c*>,and2 ]} )
by CIRCCOMB:49;
then
InnerVertices ((1GateCircStr <*x,y*>,and2a ) +* (1GateCircStr <*y,c*>,and2 )) = {[<*x,y*>,and2a ]} \/ {[<*y,c*>,and2 ]}
by A2, CIRCCOMB:15;
then A4: InnerVertices (BorrowIStr x,y,c) =
({[<*x,y*>,and2a ]} \/ {[<*y,c*>,and2 ]}) \/ {[<*x,c*>,and2a ]}
by A3, CIRCCOMB:15
.=
{[<*x,y*>,and2a ],[<*y,c*>,and2 ]} \/ {[<*x,c*>,and2a ]}
by ENUMSET1:41
.=
{[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]}
by ENUMSET1:43
;
InputVertices (1GateCircStr <*[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]*>,or3 ) = {[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]}
by FACIRC_1:42;
then A5:
(InputVertices (1GateCircStr <*[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]*>,or3 )) \ (InnerVertices (BorrowIStr x,y,c)) = {}
by A4, XBOOLE_1:37;
( not InputVertices (1GateCircStr <*x,y*>,and2a ) is with_pair & not InputVertices (1GateCircStr <*y,c*>,and2 ) is with_pair )
by FACIRC_1:41;
then
( not InputVertices (1GateCircStr <*x,c*>,and2a ) is with_pair & not InputVertices ((1GateCircStr <*x,y*>,and2a ) +* (1GateCircStr <*y,c*>,and2 )) is with_pair )
by FACIRC_1:9, FACIRC_1:41;
then A6:
not InputVertices (BorrowIStr x,y,c) is with_pair
by FACIRC_1:9;
InnerVertices (1GateCircStr <*[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]*>,or3 ) is Relation
by FACIRC_1:38;
then
InputVertices (BorrowStr x,y,c) = (InputVertices (BorrowIStr x,y,c)) \/ ((InputVertices (1GateCircStr <*[<*x,y*>,and2a ],[<*y,c*>,and2 ],[<*x,c*>,and2a ]*>,or3 )) \ (InnerVertices (BorrowIStr x,y,c)))
by A6, FACIRC_1:6;
hence
contradiction
by A6, A1, A5, FACIRC_1:def 2; verum