(* invariants sur les MapGet : conv_1 *)

Lemma u_conv_1_invar_7 :
forall (s : state) (c : ad) (p : prec_list),
MapGet prec_list (umpl_conv_1 s) c = Some p ->
exists p0 : prec_list,
p = upl_conv_1 p0 /\ MapGet prec_list s c = Some p0.