Admitted.

(* Specifications: *)
Lemma state_plift_Forall :
forall {S A M} `{PredLift M} (Pre : S -> Prop)
(P : A -> Prop) (l : list (StateT S M A)),
Forall (state_plift Pre Pre P) l ->
state_plift Pre Pre (Forall P) (sequence l).
Lemma state_plift_P_weakening :
forall {S A M} `{PredLift M} (Pre : S -> Prop)(P Q: A -> Prop) s,
(forall x, P x -> Q x) ->
state_plift Pre Pre P s ->
state_plift Pre Pre Q s.
Lemma state_plift_P_split :
forall {C : Config} {S M X} `{PredLift M}
(P Q : X -> Prop) (Pre Post: S -> Prop)
(s : StateT S M X),
state_plift Pre Post P s /\
state_plift Pre Post Q s ->
state_plift Pre Post (fun x => (P x /\ Q x)) s.
Lemma acc_dist_list_length :
forall {C : Config} (arg_list : list (block_id * operation)),
state_plift well_formed well_formed
(fun l => List.length l = List.length arg_list /\
(Forall (fun l' => List.length l' = LOP) l))
(acc_dist_list arg_list).