# File Transitive_Closure.ML

    (* legacy ML bindings *)

    val converse_rtranclE = thm "converse_rtranclE";
    val converse_rtranclE2 = thm "converse_rtranclE2";
    val converse_rtrancl_induct = thm "converse_rtrancl_induct";
    val converse_rtrancl_induct2 = thm "converse_rtrancl_induct2";
    val converse_rtrancl_into_rtrancl = thm "converse_rtrancl_into_rtrancl";
    val converse_trancl_induct = thm "converse_trancl_induct";
    val irrefl_tranclI = thm "irrefl_tranclI";
    val irrefl_trancl_rD = thm "irrefl_trancl_rD";
    val r_comp_rtrancl_eq = thm "r_comp_rtrancl_eq";
    val r_into_rtrancl = thm "r_into_rtrancl";
    val r_into_trancl = thm "r_into_trancl";
    val rtranclE = thm "rtranclE";
    val rtrancl_Un_rtrancl = thm "rtrancl_Un_rtrancl";
    val rtrancl_converse = thm "rtrancl_converse";
    val rtrancl_converseD = thm "rtrancl_converseD";
    val rtrancl_converseI = thm "rtrancl_converseI";
    val rtrancl_idemp = thm "rtrancl_idemp";
    val rtrancl_idemp_self_comp = thm "rtrancl_idemp_self_comp";
    val rtrancl_induct = thm "rtrancl_induct";
    val rtrancl_induct2 = thm "rtrancl_induct2";
    val rtrancl_into_rtrancl = thm "rtrancl_into_rtrancl";
    val rtrancl_into_trancl1 = thm "rtrancl_into_trancl1";
    val rtrancl_into_trancl2 = thm "rtrancl_into_trancl2";
    val rtrancl_mono = thm "rtrancl_mono";
    val rtrancl_r_diff_Id = thm "rtrancl_r_diff_Id";
    val rtrancl_refl = thm "rtrancl_refl";
    val rtrancl_reflcl = thm "rtrancl_reflcl";
    val rtrancl_subset = thm "rtrancl_subset";
    val rtrancl_subset_rtrancl = thm "rtrancl_subset_rtrancl";
    val rtrancl_trancl_trancl = thm "rtrancl_trancl_trancl";
    val rtrancl_trans = thm "rtrancl_trans";
    val tranclD = thm "tranclD";
    val tranclE = thm "tranclE";
    val trancl_converse = thm "trancl_converse";
    val trancl_converseD = thm "trancl_converseD";
    val trancl_converseI = thm "trancl_converseI";
    val trancl_induct = thm "trancl_induct";
    val trancl_insert = thm "trancl_insert";
    val trancl_into_rtrancl = thm "trancl_into_rtrancl";
    val trancl_into_trancl = thm "trancl_into_trancl";
    val trancl_into_trancl2 = thm "trancl_into_trancl2";
    val trancl_mono = thm "trancl_mono";
    val trancl_subset_Sigma = thm "trancl_subset_Sigma";
    val trancl_trans = thm "trancl_trans";
    val trancl_trans_induct = thm "trancl_trans_induct";
    val trans_rtrancl = thm "trans_rtrancl";
    val trans_trancl = thm "trans_trancl";