let prepare_inv_establish config s ca p = let id = mk_establish_id config.kf s ca in let labels = NormAtLabels.labels_loop_inv s in (labels, id,p)