(* legacy ML bindings *) val DomainE = thm "DomainE"; val DomainI = thm "DomainI"; val Domain_Collect_split = thm "Domain_Collect_split"; val Domain_Diff_subset = thm "Domain_Diff_subset"; val Domain_Id = thm "Domain_Id"; val Domain_Int_subset = thm "Domain_Int_subset"; val Domain_Un_eq = thm "Domain_Un_eq"; val Domain_Union = thm "Domain_Union"; val Domain_def = thm "Domain_def"; val Domain_diag = thm "Domain_diag"; val Domain_empty = thm "Domain_empty"; val Domain_iff = thm "Domain_iff"; val Domain_insert = thm "Domain_insert"; val Domain_mono = thm "Domain_mono"; val Field_def = thm "Field_def"; val IdE = thm "IdE"; val IdI = thm "IdI"; val Id_O_R = thm "Id_O_R"; val Id_def = thm "Id_def"; val ImageE = thm "ImageE"; val ImageI = thm "ImageI"; val Image_Collect_split = thm "Image_Collect_split"; val Image_INT_subset = thm "Image_INT_subset"; val Image_Id = thm "Image_Id"; val Image_Int_subset = thm "Image_Int_subset"; val Image_UN = thm "Image_UN"; val Image_Un = thm "Image_Un"; val Image_def = thm "Image_def"; val Image_diag = thm "Image_diag"; val Image_empty = thm "Image_empty"; val Image_eq_UN = thm "Image_eq_UN"; val Image_iff = thm "Image_iff"; val Image_mono = thm "Image_mono"; val Image_singleton = thm "Image_singleton"; val Image_singleton_iff = thm "Image_singleton_iff"; val Image_subset = thm "Image_subset"; val Image_subset_eq = thm "Image_subset_eq"; val O_assoc = thm "O_assoc"; val R_O_Id = thm "R_O_Id"; val RangeE = thm "RangeE"; val RangeI = thm "RangeI"; val Range_Collect_split = thm "Range_Collect_split"; val Range_Diff_subset = thm "Range_Diff_subset"; val Range_Id = thm "Range_Id"; val Range_Int_subset = thm "Range_Int_subset"; val Range_Un_eq = thm "Range_Un_eq"; val Range_Union = thm "Range_Union"; val Range_def = thm "Range_def"; val Range_diag = thm "Range_diag"; val Range_empty = thm "Range_empty"; val Range_iff = thm "Range_iff"; val Range_insert = thm "Range_insert"; val antisymD = thm "antisymD"; val antisymI = thm "antisymI"; val antisym_Id = thm "antisym_Id"; val antisym_converse = thm "antisym_converse"; val antisym_def = thm "antisym_def"; val converseD = thm "converseD"; val converseE = thm "converseE"; val converseI = thm "converseI"; val converse_Id = thm "converse_Id"; val converse_converse = thm "converse_converse"; val converse_def = thm "converse_def"; val converse_diag = thm "converse_diag"; val converse_iff = thm "converse_iff"; val converse_rel_comp = thm "converse_rel_comp"; val diagE = thm "diagE"; val diagI = thm "diagI"; val diag_def = thm "diag_def"; val diag_eqI = thm "diag_eqI"; val diag_iff = thm "diag_iff"; val diag_subset_Times = thm "diag_subset_Times"; val inv_image_def = thm "inv_image_def"; val pair_in_Id_conv = thm "pair_in_Id_conv"; val reflD = thm "reflD"; val reflI = thm "reflI"; val refl_converse = thm "refl_converse"; val refl_def = thm "refl_def"; val reflexive_Id = thm "reflexive_Id"; val rel_compE = thm "rel_compE"; val rel_compEpair = thm "rel_compEpair"; val rel_compI = thm "rel_compI"; val rel_comp_def = thm "rel_comp_def"; val rel_comp_mono = thm "rel_comp_mono"; val rel_comp_subset_Sigma = thm "rel_comp_subset_Sigma"; val rev_ImageI = thm "rev_ImageI"; val single_valuedD = thm "single_valuedD"; val single_valuedI = thm "single_valuedI"; val single_valued_def = thm "single_valued_def"; val sym_def = thm "sym_def"; val transD = thm "transD"; val transI = thm "transI"; val trans_Id = thm "trans_Id"; val trans_O_subset = thm "trans_O_subset"; val trans_converse = thm "trans_converse"; val trans_def = thm "trans_def"; val trans_inv_image = thm "trans_inv_image";