author | wenzelm |
Sun, 04 Aug 2024 13:14:33 +0200 | |
changeset 80633 | 276b07a1b5f5 |
parent 80632 | 3a196e63a80d |
child 80634 | a90ab1ea6458 |
--- a/src/HOL/Tools/typedef.ML Sun Aug 04 12:21:13 2024 +0200 +++ b/src/HOL/Tools/typedef.ML Sun Aug 04 13:14:33 2024 +0200 @@ -218,7 +218,7 @@ |> Typedecl.typedecl {final = false} (name, args, mx) ||> Variable.declare_term set; - val Type (full_name, _) = newT; + val full_name = dest_Type_name newT; (* axiomatization *)