let a, b be FinSequence; :: thesis: for c being set st c = [<*> ,((0 -tuples_on BOOLEAN ) --> FALSE )] holds
( 1 -BitAdderStr a,b = (1GateCircStr <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowStr (a . 1),(b . 1),c) & 1 -BitAdderCirc a,b = (1GateCircuit <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowCirc (a . 1),(b . 1),c) & 1 -BitMajorityOutput a,b = MajorityOutput (a . 1),(b . 1),c )
let c be set ; :: thesis: ( c = [<*> ,((0 -tuples_on BOOLEAN ) --> FALSE )] implies ( 1 -BitAdderStr a,b = (1GateCircStr <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowStr (a . 1),(b . 1),c) & 1 -BitAdderCirc a,b = (1GateCircuit <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowCirc (a . 1),(b . 1),c) & 1 -BitMajorityOutput a,b = MajorityOutput (a . 1),(b . 1),c ) )
assume A1: c = [<*> ,((0 -tuples_on BOOLEAN ) --> FALSE )] ; :: thesis: ( 1 -BitAdderStr a,b = (1GateCircStr <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowStr (a . 1),(b . 1),c) & 1 -BitAdderCirc a,b = (1GateCircuit <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowCirc (a . 1),(b . 1),c) & 1 -BitMajorityOutput a,b = MajorityOutput (a . 1),(b . 1),c )
consider f, g, h being ManySortedSet of such that
A2: 1 -BitAdderStr a,b = f . 1 and
A3: 1 -BitAdderCirc a,b = g . 1 and
A4: ( f . 0 = 1GateCircStr <*> ,((0 -tuples_on BOOLEAN ) --> FALSE ) & g . 0 = 1GateCircuit <*> ,((0 -tuples_on BOOLEAN ) --> FALSE ) & h . 0 = c ) and
A5: for n being Nat
for S being non empty ManySortedSign
for A being non-empty MSAlgebra of S
for z being set st S = f . n & A = g . n & z = h . n holds
( f . (n + 1) = S +* (BitAdderWithOverflowStr (a . (n + 1)),(b . (n + 1)),z) & g . (n + 1) = A +* (BitAdderWithOverflowCirc (a . (n + 1)),(b . (n + 1)),z) & h . (n + 1) = MajorityOutput (a . (n + 1)),(b . (n + 1)),z ) by A1, Def4;
( c in the carrier of (BitAdderWithOverflowStr (a . 1),(b . 1),c) & 1 -BitMajorityOutput a,b = h . (0 + 1) ) by A1, A4, A5, Th7, FACIRC_1:87;
hence ( 1 -BitAdderStr a,b = (1GateCircStr <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowStr (a . 1),(b . 1),c) & 1 -BitAdderCirc a,b = (1GateCircuit <*> ,((0 -tuples_on BOOLEAN ) --> FALSE )) +* (BitAdderWithOverflowCirc (a . 1),(b . 1),c) & 1 -BitMajorityOutput a,b = MajorityOutput (a . 1),(b . 1),c ) by A2, A3, A4, A5; :: thesis: verum