# HG changeset patch
# User wenzelm
# Date 1726404993 -7200
# Node ID 94ea065a8881b861be107e94e6ce9d56fa58be1d
# Parent  11c582704e36439ffa872c42f140c0d499f6b407
more operations;

diff -r 11c582704e36 -r 94ea065a8881 src/Pure/Syntax/ast.ML
--- a/src/Pure/Syntax/ast.ML	Sun Sep 15 14:21:31 2024 +0200
+++ b/src/Pure/Syntax/ast.ML	Sun Sep 15 14:56:33 2024 +0200
@@ -12,6 +12,9 @@
     Appl of ast list
   val mk_appl: ast -> ast list -> ast
   exception AST of string * ast list
+  val ast_ord: ast ord
+  structure Table: TABLE
+  structure Set: SET
   val pretty_ast: ast -> Pretty.T
   val pretty_rule: ast * ast -> Pretty.T
   val strip_positions: ast -> ast
@@ -51,6 +54,31 @@
 exception AST of string * ast list;
 
 
+(* order *)
+
+local
+
+fun cons_nr (Constant _) = 0
+  | cons_nr (Variable _) = 1
+  | cons_nr (Appl _) = 2;
+
+in
+
+fun ast_ord asts =
+  if pointer_eq asts then EQUAL
+  else
+    (case asts of
+      (Constant a, Constant b) => fast_string_ord (a, b)
+    | (Variable a, Variable b) => fast_string_ord (a, b)
+    | (Appl a, Appl b) => list_ord ast_ord (a, b)
+    | _ => int_ord (apply2 cons_nr asts));
+
+end;
+
+structure Table = Table(type key = ast val ord = ast_ord);
+structure Set = Set(Table.Key);
+
+
 
 (** print asts in a LISP-like style **)