let add_inv s ca_id inv acc = 
  add (NormAtLabels.labels_loop_inv s) acc (PKloopInv (s, ca_id, inv))