@@ -950,25 +950,25 @@ module Bound = struct
950
950
let plus_l : weak:bool -> t -> t -> t =
951
951
plus_exact ~otherwise: (fun x y ->
952
952
match (x, y) with
953
- | MinMax (c1, Plus , Max , d1, _ ), Linear (c2, x2)
954
- | Linear (c2 , x2 ), MinMax (c1 , Plus, Max, d1 , _ ) ->
955
- Linear (Z. (c1 + d1 + c2), x2)
956
- | MinMax (c1, Minus , Min , d1, _ ), Linear (c2, x2)
957
- | Linear (c2 , x2 ), MinMax (c1 , Minus, Min, d1 , _ ) ->
958
- Linear (Z. (c1 - d1 + c2), x2)
953
+ | MinMax (c1, Plus , Max , d1, x1 ), Linear (c2, x2)
954
+ | Linear (c2 , x2 ), MinMax (c1 , Plus, Max, d1 , x1 ) ->
955
+ mk_MinMaxB ( Max , ( Linear (Z. (c1 + d1 + c2), x2)), ( Linear ( Z. (c1 + c2), SymLinear. plus ( SymLinear. singleton_one x1) x2)) )
956
+ | MinMax (c1, Minus , Min , d1, x1 ), Linear (c2, x2)
957
+ | Linear (c2 , x2 ), MinMax (c1 , Minus, Min, d1 , x1 ) ->
958
+ mk_MinMaxB ( Max , ( Linear (Z. (c1 - d1 + c2), x2)), ( Linear ( Z. (c1 + c2), SymLinear. plus ( SymLinear. singleton_minus_one x1) x2)) )
959
959
| _ , _ ->
960
960
MInf )
961
961
962
962
963
963
let plus_u : weak:bool -> t -> t -> t =
964
964
plus_exact ~otherwise: (fun x y ->
965
965
match (x, y) with
966
- | MinMax (c1, Plus , Min , d1, _ ), Linear (c2, x2)
967
- | Linear (c2 , x2 ), MinMax (c1 , Plus, Min, d1 , _ ) ->
968
- Linear (Z. (c1 + d1 + c2), x2)
969
- | MinMax (c1, Minus , Max , d1, _ ), Linear (c2, x2)
970
- | Linear (c2 , x2 ), MinMax (c1 , Minus, Max, d1 , _ ) ->
971
- Linear (Z. (c1 - d1 + c2), x2)
966
+ | MinMax (c1, Plus , Min , d1, x1 ), Linear (c2, x2)
967
+ | Linear (c2 , x2 ), MinMax (c1 , Plus, Min, d1 , x1 ) ->
968
+ mk_MinMaxB ( Min , ( Linear (Z. (c1 + d1 + c2), x2)), ( Linear ( Z. (c1 + c2), SymLinear. plus ( SymLinear. singleton_one x1) x2)) )
969
+ | MinMax (c1, Minus , Max , d1, x1 ), Linear (c2, x2)
970
+ | Linear (c2 , x2 ), MinMax (c1 , Minus, Max, d1 , x1 ) ->
971
+ mk_MinMaxB ( Min , ( Linear (Z. (c1 - d1 + c2), x2)), ( Linear ( Z. (c1 + c2), SymLinear. plus ( SymLinear. singleton_minus_one x1) x2)) )
972
972
| _ , _ ->
973
973
PInf )
974
974
0 commit comments