sig   val bottom_mark : SlicingTypes.sl_mark   val mk_user_mark :     data:bool -> addr:bool -> ctrl:bool -> SlicingTypes.sl_mark   val mk_gen_spare : SlicingTypes.sl_mark   val mk_user_spare : SlicingTypes.sl_mark   val is_bottom_mark : SlicingTypes.sl_mark -> bool   val is_top_mark : SlicingTypes.sl_mark -> bool   val is_spare_mark : SlicingTypes.sl_mark -> bool   val is_ctrl_mark : SlicingTypes.sl_mark -> bool   val is_addr_mark : SlicingTypes.sl_mark -> bool   val is_data_mark : SlicingTypes.sl_mark -> bool   val merge_marks : SlicingTypes.sl_mark list -> SlicingTypes.sl_mark   val inter_marks : SlicingTypes.sl_mark list -> SlicingTypes.sl_mark   val combine_marks :     SlicingTypes.sl_mark ->     SlicingTypes.sl_mark -> SlicingTypes.sl_mark * SlicingTypes.sl_mark   val minus_marks :     SlicingTypes.sl_mark -> SlicingTypes.sl_mark -> SlicingTypes.sl_mark   val compare_marks : SlicingTypes.sl_mark -> SlicingTypes.sl_mark -> int   val mark_to_string : SlicingTypes.sl_mark -> string   val pretty_mark : Format.formatter -> SlicingTypes.sl_mark -> unit   val missing_input_mark :     call:SlicingTypes.sl_mark ->     called:SlicingTypes.sl_mark -> SlicingTypes.sl_mark option   val missing_output_mark :     call:SlicingTypes.sl_mark ->     called:SlicingTypes.sl_mark -> SlicingTypes.sl_mark option   type sig_marks = SlicingTypes.sl_mark PdgIndex.Signature.t   val empty_sig : SlicingMarks.sig_marks   val get_input_mark : SlicingMarks.sig_marks -> int -> SlicingTypes.sl_mark   val get_all_input_marks :     SlicingMarks.sig_marks ->     (PdgIndex.Signature.in_key * SlicingTypes.sl_mark) list   val get_matching_input_marks :     SlicingMarks.sig_marks ->     Locations.Zone.t ->     (PdgIndex.Signature.in_key * SlicingTypes.sl_mark) list   val merge_inputs_m1_mark : SlicingMarks.sig_marks -> SlicingTypes.sl_mark   val get_input_loc_under_mark :     SlicingMarks.sig_marks -> Locations.Zone.t -> SlicingTypes.sl_mark   val get_in_ctrl_mark : SlicingMarks.sig_marks -> SlicingTypes.sl_mark   val something_visible : SlicingMarks.sig_marks -> bool   val some_visible_out : SlicingMarks.sig_marks -> bool   val is_topin_visible : SlicingMarks.sig_marks -> bool   val get_marked_out_zone : SlicingMarks.sig_marks -> bool * Locations.Zone.t   val pretty_sig : Format.formatter -> SlicingMarks.sig_marks -> unit end