(* conservation de l'invariant ref_ok pour l'union *)

Lemma union_mpl_0_ref_ok_invar :
forall (s : state) (a : ad) (p : prec_list) (d : preDTA),
state_ref_ok (M1 prec_list a p) d ->
state_ref_ok s d -> state_ref_ok (union_mpl_0 a p s) d.