(* invariants sur les MapGet pour conv_0 *)

Lemma u_conv_0_invar_7 :
forall (s : state) (c : ad) (p : prec_list),
MapGet prec_list (umpl_conv_0 s) c = Some p ->
exists p0 : prec_list,
p = upl_conv_0 p0 /\ MapGet prec_list s c = Some p0.