let add_prop_assert acc kind kf s ca p =
  let id = WpPropId.mk_assert_id kf s ca in
  let labels = NormAtLabels.labels_assert_before s in
    add_prop acc kind labels id p