Added ML bindings for sup_fun_eq and sup_bool_eq.

--- a/src/HOL/Fun.thy	Wed Jul 11 11:01:24 2007 +0200
+++ b/src/HOL/Fun.thy	Wed Jul 11 11:02:07 2007 +0200
@@ -600,6 +600,8 @@
 val datatype_injI = @{thm datatype_injI}
 val range_ex1_eq = @{thm range_ex1_eq}
 val expand_fun_eq = @{thm expand_fun_eq}
+val sup_fun_eq = @{thm sup_fun_eq}
+val sup_bool_eq = @{thm sup_bool_eq}
 *}
 
 end