HOLogic.read_cterm;
authorwenzelm
Mon, 03 Dec 2001 11:47:29 +0100
changeset 12341 08afd1003151
parent 12340 24d31d47af1a
child 12342 06751df904fb
HOLogic.read_cterm;
TFL/post.ML
--- a/TFL/post.ML	Mon Dec 03 11:46:13 2001 +0100
+++ b/TFL/post.ML	Mon Dec 03 11:47:29 2001 +0100
@@ -37,7 +37,7 @@
 
 (* misc *)
 
-fun read_term thy = Sign.simple_read_term (Theory.sign_of thy) HOLogic.termT;
+val read_term = Thm.term_of oo (HOLogic.read_cterm o Theory.sign_of);
 
 
 (*---------------------------------------------------------------------------