Skip to content
Snippets Groups Projects
Commit 350350ce authored by Patrick Baudin's avatar Patrick Baudin
Browse files

[WP] minor: fixes a comment

parent c1d1116d
No related branches found
No related tags found
No related merge requests found
...@@ -765,7 +765,7 @@ let smp_leq_with_lsr x y = ...@@ -765,7 +765,7 @@ let smp_leq_with_lsr x y =
(* p >= 0 ==> ( 0 <= (a >> p) <==> 0 <= a )*) (* p >= 0 ==> ( 0 <= (a >> p) <==> 0 <= a )*)
e_leq e_zero a e_leq e_zero a
else else
(* p >= 0 ==> ( x <= (a >> p) <= y <==> x <= a/(2**p) ) *) (* p >= 0 ==> ( x <= (a >> p) <==> x <= a/(2**p) ) *)
let k = two_power_k p in let k = two_power_k p in
e_leq x (e_div a (e_zint k)) e_leq x (e_div a (e_zint k))
with Not_found -> with Not_found ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment