Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added norm_export_morphism;
authorwenzelm
Mon, 29 Sep 2008 10:58:04 +0200
changeset 28396 72695dd4395d
parent 28395 984fcc8feb24
child 28397 389c5e494605
added norm_export_morphism;
src/Pure/Isar/proof_context.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/proof_context.ML	Mon Sep 29 10:58:03 2008 +0200
+++ b/src/Pure/Isar/proof_context.ML	Mon Sep 29 10:58:04 2008 +0200
@@ -68,6 +68,7 @@
   val goal_export: Proof.context -> Proof.context -> thm list -> thm list
   val export: Proof.context -> Proof.context -> thm list -> thm list
   val export_morphism: Proof.context -> Proof.context -> morphism
+  val norm_export_morphism: Proof.context -> Proof.context -> morphism
   val add_binds: (indexname * string option) list -> Proof.context -> Proof.context
   val add_binds_i: (indexname * term option) list -> Proof.context -> Proof.context
   val auto_bind_goal: term list -> Proof.context -> Proof.context
@@ -767,6 +768,10 @@
   Assumption.export_morphism inner outer $>
   Variable.export_morphism inner outer;
 
+fun norm_export_morphism inner outer =
+  export_morphism inner outer $>
+  Morphism.thm_morphism Goal.norm_result;
+
 
 
 (** bindings **)
isabelle