# HG changeset patch
# User wenzelm
# Date 893842386 -7200
# Node ID 802c1f9ec15638aaa4f1475fcbfa805d43cd6410
# Parent  62bc389d61688e2182ec15625313e8ce63b49a01
Theory.require;

diff -r 62bc389d6168 -r 802c1f9ec156 TFL/post.sml
--- a/TFL/post.sml	Wed Apr 29 11:30:55 1998 +0200
+++ b/TFL/post.sml	Wed Apr 29 11:33:06 1998 +0200
@@ -84,7 +84,7 @@
  * Defining a function with an associated termination relation. 
  *---------------------------------------------------------------------------*)
 fun define_i thy fid R eqs = 
-  let val dummy = require_thy thy "WF_Rel" "recursive function definitions"
+  let val dummy = Theory.require thy "WF_Rel" "recursive function definitions"
       val {functional,pats} = Prim.mk_functional thy eqs
   in (Prim.wfrec_definition0 thy fid R functional, pats)
   end;