let n be Nat; for x, y being FinSeqLen of n
for a, b being set holds
( (n + 1) -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderStr (x,y)) +* (BitAdderWithOverflowStr (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderCirc (x,y)) +* (BitAdderWithOverflowCirc (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = MajorityOutput (a,b,(n -BitMajorityOutput (x,y))) )
set c = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)];
let x, y be FinSeqLen of n; for a, b being set holds
( (n + 1) -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderStr (x,y)) +* (BitAdderWithOverflowStr (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderCirc (x,y)) +* (BitAdderWithOverflowCirc (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = MajorityOutput (a,b,(n -BitMajorityOutput (x,y))) )
let a, b be set ; ( (n + 1) -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderStr (x,y)) +* (BitAdderWithOverflowStr (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderCirc (x,y)) +* (BitAdderWithOverflowCirc (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = MajorityOutput (a,b,(n -BitMajorityOutput (x,y))) )
set p = x ^ <*a*>;
set q = y ^ <*b*>;
consider f, g, h being ManySortedSet of NAT such that
A1:
n -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = f . n
and
A2:
n -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = g . n
and
A3:
f . 0 = 1GateCircStr (<*>,((0 -tuples_on BOOLEAN) --> FALSE))
and
A4:
g . 0 = 1GateCircuit (<*>,((0 -tuples_on BOOLEAN) --> FALSE))
and
A5:
h . 0 = [<*>,((0 -tuples_on BOOLEAN) --> FALSE)]
and
A6:
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 +* (BitAdderWithOverflowStr (((x ^ <*a*>) . (n + 1)),((y ^ <*b*>) . (n + 1)),z)) & g . (n + 1) = A +* (BitAdderWithOverflowCirc (((x ^ <*a*>) . (n + 1)),((y ^ <*b*>) . (n + 1)),z)) & h . (n + 1) = MajorityOutput (((x ^ <*a*>) . (n + 1)),((y ^ <*b*>) . (n + 1)),z) )
by Def4;
A7:
n -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = h . n
by A3, A4, A5, A6, Th6;
A8:
(n + 1) -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = f . (n + 1)
by A3, A4, A5, A6, Th6;
A9:
(n + 1) -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = g . (n + 1)
by A3, A4, A5, A6, Th6;
A10:
(n + 1) -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = h . (n + 1)
by A3, A4, A5, A6, Th6;
A11:
len x = n
by CARD_1:def 7;
A12:
len y = n
by CARD_1:def 7;
A13:
(x ^ <*a*>) . (n + 1) = a
by A11, FINSEQ_1:42;
A14:
(y ^ <*b*>) . (n + 1) = b
by A12, FINSEQ_1:42;
A15:
x ^ <*> = x
by FINSEQ_1:34;
A16:
y ^ <*> = y
by FINSEQ_1:34;
then A17:
n -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = n -BitAdderStr (x,y)
by A15, Th10;
A18:
n -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = n -BitAdderCirc (x,y)
by A15, A16, Th10;
n -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = n -BitMajorityOutput (x,y)
by A15, A16, Th10;
hence
( (n + 1) -BitAdderStr ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderStr (x,y)) +* (BitAdderWithOverflowStr (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitAdderCirc ((x ^ <*a*>),(y ^ <*b*>)) = (n -BitAdderCirc (x,y)) +* (BitAdderWithOverflowCirc (a,b,(n -BitMajorityOutput (x,y)))) & (n + 1) -BitMajorityOutput ((x ^ <*a*>),(y ^ <*b*>)) = MajorityOutput (a,b,(n -BitMajorityOutput (x,y))) )
by A1, A2, A6, A7, A8, A9, A10, A13, A14, A17, A18; verum