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