# HG changeset patch
# User wenzelm
# Date 1737667778 -3600
# Node ID e506e636c7244bf6608740d485cf865e1eb41003
# Parent  4741b78bbc7933849e28ef3e6e34bed83269aca9
tuned names: follow HOL Light;
tuned signature: no proactive export of internal operations;

diff -r 4741b78bbc79 -r e506e636c724 src/HOL/Import/import_rule.ML
--- a/src/HOL/Import/import_rule.ML	Thu Jan 23 22:20:40 2025 +0100
+++ b/src/HOL/Import/import_rule.ML	Thu Jan 23 22:29:38 2025 +0100
@@ -11,22 +11,6 @@
 signature IMPORT_RULE =
 sig
   val trace : bool Config.T
-  type name = {hol: string, isabelle: string}
-  val beta : cterm -> thm
-  val eq_mp : thm -> thm -> thm
-  val comb : thm -> thm -> thm
-  val trans : thm -> thm -> thm
-  val deduct : thm -> thm -> thm
-  val conj1 : thm -> thm
-  val conj2 : thm -> thm
-  val refl : cterm -> thm
-  val abs : cterm -> thm -> thm
-  val mdef : theory -> string -> thm
-  val def : name -> cterm -> theory -> thm * theory
-  val mtydef : theory -> string -> thm
-  val tydef : name -> string -> string -> cterm -> cterm -> thm -> theory -> thm * theory
-  val inst_type : (ctyp * ctyp) list -> thm -> thm
-  val inst : (cterm * cterm) list -> thm -> thm
   val import_file : Path.T -> theory -> theory
 end
 
@@ -53,8 +37,6 @@
 
 (** primitive rules of HOL Light **)
 
-(* basic logic *)
-
 fun to_obj_eq th =
   let
     val (t, u) = Thm.dest_equals (Thm.cprop_of th)
@@ -73,8 +55,25 @@
     Thm.implies_elim rl th
   end
 
+
+(* basic logic *)
+
+fun refl t =
+  \<^instantiate>\<open>(no_beta) 'a = \<open>Thm.ctyp_of_cterm t\<close> and t in lemma \<open>t = t\<close> by (fact refl)\<close>
+
+fun trans th1 th2 =
+  Thm.transitive (to_meta_eq th1) (to_meta_eq th2) |> to_obj_eq
+
+fun mk_comb th1 th2 =
+  Thm.combination (to_meta_eq th1) (to_meta_eq th2) |> to_obj_eq
+
+fun abs x th =
+  to_meta_eq th |> Thm.abstract_rule (Term.term_name (Thm.term_of x)) x |> to_obj_eq
+
 fun beta t = Thm.beta_conversion false t |> to_obj_eq
 
+val assume = Thm.assume_cterm o HOLogic.mk_judgment
+
 fun eq_mp th1 th2 =
   let
     val (Q, P) = Thm.dest_binop (HOLogic.dest_judgment (Thm.cprop_of th1))
@@ -83,13 +82,7 @@
     Thm.implies_elim (Thm.implies_elim rl th1) th2
   end
 
-fun comb th1 th2 =
-  Thm.combination (to_meta_eq th1) (to_meta_eq th2) |> to_obj_eq
-
-fun trans th1 th2 =
-  Thm.transitive (to_meta_eq th1) (to_meta_eq th2) |> to_obj_eq
-
-fun deduct th1 th2 =
+fun deduct_antisym_rule th1 th2 =
   let
     val Q = Thm.cprop_of th1
     val P = Thm.cprop_of th2
@@ -120,13 +113,6 @@
     Thm.implies_elim rl th
   end
 
-fun refl t =
-  \<^instantiate>\<open>(no_beta) 'a = \<open>Thm.ctyp_of_cterm t\<close> and t in lemma \<open>t = t\<close> by (fact refl)\<close>
-
-fun abs x th =
-  to_meta_eq th |> Thm.abstract_rule (Term.term_name (Thm.term_of x)) x |> to_obj_eq
-
-
 
 (* instantiation *)
 
@@ -298,7 +284,6 @@
   in Thm.global_cterm_of thy (Const (d, Thm.typ_of ty)) end
 
 val make_thm = Skip_Proof.make_thm_cterm o HOLogic.mk_judgment
-val assume_thm = Thm.assume_cterm o HOLogic.mk_judgment
 
 
 (* import file *)
@@ -374,12 +359,12 @@
   | command (#"B", [t]) = term t #>> beta #-> set_thm
   | command (#"1", [th]) = thm th #>> conj1 #-> set_thm
   | command (#"2", [th]) = thm th #>> conj2 #-> set_thm
-  | command (#"H", [t]) = term t #>> assume_thm #-> set_thm
+  | command (#"H", [t]) = term t #>> assume #-> set_thm
   | command (#"A", [_, t]) = term t #>> make_thm #-> set_thm
-  | command (#"C", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry comb #-> set_thm
+  | command (#"C", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry mk_comb #-> set_thm
   | command (#"T", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry trans #-> set_thm
   | command (#"E", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry eq_mp #-> set_thm
-  | command (#"D", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry deduct #-> set_thm
+  | command (#"D", [th1, th2]) = thm th1 ##>> thm th2 #>> uncurry deduct_antisym_rule #-> set_thm
   | command (#"L", [t, th]) = term t ##>> thm th #>> uncurry abs #-> set_thm
   | command (#"M", [name]) = stored_thm name
   | command (#"Q", args) =