let ap, bp, cp, dp be FinSequence; :: thesis: ( 0 -BitFTA0Str (ap,bp,cp,dp) = 1GateCircStr (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) & 0 -BitFTA0Circ (ap,bp,cp,dp) = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) & 0 -BitFTA0CarryOutput (ap,bp,cp,dp) = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)] )
set f0 = 1GateCircStr (<*>,((0 -tuples_on BOOLEAN) --> FALSE));
set g0 = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE));
set h0 = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)];
A1: ex f, g, h being ManySortedSet of NAT st
( 0 -BitFTA0Str (ap,bp,cp,dp) = f . 0 & 0 -BitFTA0Circ (ap,bp,cp,dp) = g . 0 & f . 0 = 1GateCircStr (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) & g . 0 = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) & h . 0 = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)] & ( for n being Nat
for S being non empty ManySortedSign
for A being non-empty MSAlgebra over S
for z being set st S = f . n & A = g . n & z = h . n holds
( f . (n + 1) = S +* (BitFTA0Str ((ap . (n + 1)),(bp . (n + 1)),(cp . (n + 1)),(dp . (n + 1)),z)) & g . (n + 1) = A +* (BitFTA0Circ ((ap . (n + 1)),(bp . (n + 1)),(cp . (n + 1)),(dp . (n + 1)),z)) & h . (n + 1) = BitFTA0CarryOutput ((ap . (n + 1)),(bp . (n + 1)),(cp . (n + 1)),(dp . (n + 1)),z) ) ) ) by Def2;
hence 0 -BitFTA0Str (ap,bp,cp,dp) = 1GateCircStr (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) ; :: thesis: ( 0 -BitFTA0Circ (ap,bp,cp,dp) = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) & 0 -BitFTA0CarryOutput (ap,bp,cp,dp) = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)] )
thus 0 -BitFTA0Circ (ap,bp,cp,dp) = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE)) by A1; :: thesis: 0 -BitFTA0CarryOutput (ap,bp,cp,dp) = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)]
InnerVertices (0 -BitFTA0Str (ap,bp,cp,dp)) = {[<*>,((0 -tuples_on BOOLEAN) --> FALSE)]} by A1, CIRCCOMB:42;
hence 0 -BitFTA0CarryOutput (ap,bp,cp,dp) = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)] by TARSKI:def 1; :: thesis: verum