Module NormAtLabels

module NormAtLabels: sig .. end
push the Tat down to the 'data' operations. This can be useful in cases like \at (x + \at(y, Ly), Lx) because it gives \at(x, Lx) + \at(y, Ly) so there is no more \at imbrications. Also try to "normalize" label :

type label_mapping = Cil_types.logic_label -> Cil_types.logic_label 
class norm_at : (Cil_types.logic_label -> Cil_types.logic_label) -> object .. end
push the Tat down to the 'data' operations.
exception LabelError of Cil_types.logic_label
val labels_empty : Cil_types.logic_label -> 'a
val labels_fct_pre : Cil_types.logic_label -> Cil_types.logic_label
val labels_fct_post : Cil_types.logic_label -> Cil_types.logic_label
val labels_fct_assigns : Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_pre : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_post : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_assigns : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_assert_before : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_assert_after : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_loop_inv : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_loop_assigns : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_predicate : ('a * 'a) list -> 'a -> 'a
val labels_axiom : Cil_types.logic_label -> Cil_types.logic_label
val preproc_annot : (Cil_types.logic_label -> Cil_types.logic_label) ->
Cil_types.predicate Cil_types.named -> Cil_types.predicate Cil_types.named
Raises LabelError if there is a label in p that is incompatible with the labels translation
val preproc_assigns : (Cil_types.logic_label -> Cil_types.logic_label) ->
Cil_types.identified_term Cil_types.from list ->
Cil_types.identified_term Cil_types.from list
Raises LabelError if there is a label in p that is incompatible with the labels translation
val preproc_label : ('a -> 'b) -> 'a -> 'b
val catch_label_error : exn -> string -> string -> unit