diff --git a/infer/src/pulse/PulseAbductiveDomain.ml b/infer/src/pulse/PulseAbductiveDomain.ml index 78e99a40b..183dd1825 100644 --- a/infer/src/pulse/PulseAbductiveDomain.ml +++ b/infer/src/pulse/PulseAbductiveDomain.ml @@ -112,8 +112,8 @@ let leq ~lhs ~rhs = && match BaseDomain.isograph_map BaseDomain.empty_mapping - ~lhs:(rhs.pre :> BaseDomain.t) - ~rhs:(lhs.pre :> BaseDomain.t) + ~lhs:(lhs.pre :> BaseDomain.t) + ~rhs:(rhs.pre :> BaseDomain.t) with | NotIsomorphic -> false diff --git a/infer/src/pulse/PulseBaseDomain.ml b/infer/src/pulse/PulseBaseDomain.ml index dcf529be4..191a418d9 100644 --- a/infer/src/pulse/PulseBaseDomain.ml +++ b/infer/src/pulse/PulseBaseDomain.ml @@ -125,7 +125,7 @@ module GraphComparison = struct IsomorphicUpTo mapping | Some _, None | None, Some _ -> NotIsomorphic - | Some (edges_rhs, attrs_rhs), Some (edges_lhs, attrs_lhs) -> + | Some (edges_lhs, attrs_lhs), Some (edges_rhs, attrs_rhs) -> (* continue the comparison recursively on all edges and attributes *) if Attributes.equal attrs_rhs attrs_lhs then let bindings_lhs = Memory.Edges.bindings edges_lhs in