MyARG (goblint.Goblint

module type Node = sig ... end

module type Edge = sig ... end

module CFGEdge : Edge with type t = MyCFG.edge

type inline_edge =

| CFGEdge of Edge.t
| InlineEntry of CilType.Lval.t option * CilType.Fundec.t * CilType.Exp.t list
| InlineReturn of CilType.Lval.t option * CilType.Fundec.t * CilType.Exp.t list
| InlinedEdge of Edge.t
| ThreadEntry of CilType.Lval.t option * CilType.Varinfo.t * CilType.Exp.t list

val equal_inline_edge : inline_edge -> inline_edge -> Ppx_deriving_runtime.bool

val compare_inline_edge : 
  inline_edge ->
  inline_edge ->
  Ppx_deriving_runtime.int

val hash_inline_edge : inline_edge -> int

val pretty_inline_edge : unit -> inline_edge -> GoblintCil.Pretty.doc

val inline_edge_to_yojson : 
  inline_edge ->
  [> `Assoc of (string * [> `Assoc of (string * Yojson.Safe.t) list ]) list ]

module InlineEdgePrintable : Printable.S with type t = inline_edge

module InlineEdge : Edge with type t = inline_edge

module type S = sig ... end

module StackNode (Node : Node) : Node with type t = Node.t list

module Stack
  (Arg : S with module Edge = InlineEdge) : 
  S with module Node = StackNode(Arg.Node) and module Edge = Arg.Edge

module type IsInteresting = sig ... end

module InterestingArg
  (Arg : S)
  (IsInteresting : 
    IsInteresting with type node := Arg.Node.t and type edge := Arg.Edge.t) : 
  S with module Node = Arg.Node and module Edge = Arg.Edge

module type SIntra = sig ... end

module type SIntraOpt = sig ... end

module CfgIntra (Cfg : MyCFG.CfgForward) : SIntraOpt

val partition_if_next : (MyCFG.edge * 'a) list -> CilType.Exp.t * 'a * 'a

module UnCilLogicIntra (Arg : SIntraOpt) : SIntraOpt

module UnCilTernaryIntra (Arg : SIntraOpt) : SIntraOpt

module Intra
  (ArgIntra : SIntraOpt)
  (Arg : S) : 
  S with module Node = Arg.Node and module Edge = Arg.Edge