diff options
Diffstat (limited to 'tactics/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 69cee2148..20a52c21c 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -179,7 +179,7 @@ let fix_empty_or_and_pattern nv l = let check_or_and_pattern_size loc names n = if List.length names <> n then - if n = 1 then + if Int.equal n 1 then user_err_loc (loc,"",str "Expects a conjunctive pattern.") else user_err_loc (loc,"",str "Expects a disjunctive pattern with " ++ int n |