--- a/src/HOL/Analysis/metric_arith.ML Thu Oct 14 15:24:28 2021 +0200
+++ b/src/HOL/Analysis/metric_arith.ML Thu Oct 14 16:03:20 2021 +0200
@@ -92,7 +92,7 @@
app_union_ct_pair find (Thm.dest_comb ct)
| Abs (_, _, _) =>
(* ensure the point doesn't contain the bound variable *)
- let val (var, bod) = Thm.dest_abs NONE ct in
+ let val (var, bod) = Thm.dest_abs ct in
filter (free_in var #> not) (find bod)
end
| _ => [])
@@ -120,7 +120,7 @@
| _ $ _ =>
app_union_ct_pair find (Thm.dest_comb ct)
| Abs (_, _, _) =>
- let val (var, bod) = Thm.dest_abs NONE ct in
+ let val (var, bod) = Thm.dest_abs ct in
filter (free_in var #> not) (find bod)
end
| _ => []
@@ -139,7 +139,7 @@
else app_union_ct_pair find (Thm.dest_binop ct)
| _ $ _ => app_union_ct_pair find (Thm.dest_comb ct)
| Abs (_, _, _) =>
- let val (var, bod) = Thm.dest_abs NONE ct in
+ let val (var, bod) = Thm.dest_abs ct in
filter (free_in var #> not) (find bod)
end
| _ => []
@@ -255,7 +255,7 @@
let val (s, t) = Thm.dest_comb ct in
default (find_dist t) (find_dist s)
end
- | Abs (_, _, _) => find_dist (snd (Thm.dest_abs NONE ct))
+ | Abs (_, _, _) => find_dist (snd (Thm.dest_abs ct))
| _ => NONE
fun find_eq ct =
case Thm.term_of ct of
@@ -269,7 +269,7 @@
let val (s, t) = Thm.dest_comb ct in
default (find_eq t) (find_eq s)
end
- | Abs (_, _, _) => find_eq (snd (Thm.dest_abs NONE ct))
+ | Abs (_, _, _) => find_eq (snd (Thm.dest_abs ct))
| _ => NONE
in
case default (find_eq ct) (find_dist ct) of