fact: Definition size_cards lt := fold_right (fun c x => length (fst c) + length (snd c) + x) 0 lt.
imports: List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss) Undecidability.StackMachines.BSM(tiles_solvable bsm_defs)