fact: Definition Code_mult := l = 0 \/ l <> 0 /\ exists v v1 r' r'' p, r'' = r /\ r'' = r'+1 /\ seqs_of_ones v v1 /\ p = (ca*v)⇣(r'*v1) /\ p = (cb*cc)⇣(r'*v1).
imports: Arith Lia List Bool Undecidability.Shared.Libs.DLW.Utils(utils_tac gcd sums rel_iter bool_nat power_decomp prime)