fact: Definition Halt_BSM : { n : nat & { i : nat & { P : list (bsm_instr n) & vec (list bool) n } } } -> Prop:= fun '(existT _ n (existT _ i (existT _ P v))) => exists c' v', eval n (i,P) (i,v) (c', v').
imports: List Bool Undecidability.Shared.Libs.DLW(list_bool pos vec)