File tree Expand file tree Collapse file tree 1 file changed +11
-10
lines changed Expand file tree Collapse file tree 1 file changed +11
-10
lines changed Original file line number Diff line number Diff line change @@ -172,16 +172,17 @@ val lte (x y: t) : Pure bool
172
172
173
173
(* * Infix notations *)
174
174
175
- unfold let ( +^ ) = add
176
- unfold let ( -^ ) = sub
177
- unfold let ( *^ ) = mul
178
- unfold let ( %^ ) = rem
179
- unfold let ( =^ ) = eq
180
- unfold let ( <>^ ) = ne
181
- unfold let ( >^ ) = gt
182
- unfold let ( >=^ ) = gte
183
- unfold let ( <^ ) = lt
184
- unfold let ( <=^ ) = lte
175
+ inline_for_extraction unfold let ( +^ ) = add
176
+ inline_for_extraction unfold let ( -^ ) = sub
177
+ inline_for_extraction unfold let ( *^ ) = mul
178
+ inline_for_extraction unfold let ( /^ ) = div
179
+ inline_for_extraction unfold let ( %^ ) = rem
180
+ inline_for_extraction unfold let ( =^ ) = eq
181
+ inline_for_extraction unfold let ( <>^ ) = ne
182
+ inline_for_extraction unfold let ( >^ ) = gt
183
+ inline_for_extraction unfold let ( >=^ ) = gte
184
+ inline_for_extraction unfold let ( <^ ) = lt
185
+ inline_for_extraction unfold let ( <=^ ) = lte
185
186
186
187
//This private primitive is used internally by the
187
188
//compiler to translate bounded integer constants
You can’t perform that action at this time.
0 commit comments