let mark_to_prop_to_caller_input call_opt pdg_caller sel_elem m =
      match m with
        | trueM.Glob -> Some m
        | trueM.Loc ->
            call_in_to_check :=
            (pdg_caller, call_opt, sel_elem, m) :: !call_in_to_check;
            None
        | _ -> fatal "cannot propagate invisible mark@."