author | wenzelm |
Thu, 22 Oct 2009 15:50:12 +0200 (2009-10-22) | |
changeset 33071 | 362f59fe5092 |
parent 33070 | c39f6bd5a46b |
child 33072 | ae416aebbb75 |
child 33194 | 13450310a776 |
--- a/src/HOLCF/Universal.thy Thu Oct 22 15:26:15 2009 +0200 +++ b/src/HOLCF/Universal.thy Thu Oct 22 15:50:12 2009 +0200 @@ -805,7 +805,7 @@ lemma basis_emb_prj_less: "ubasis_le (basis_emb (basis_prj x)) x" unfolding basis_prj_def - apply (subst f_inv_onto_f [where f=basis_emb]) + apply (subst f_inv_into_f [where f=basis_emb]) apply (rule ubasis_until) apply (rule range_eqI [where x=compact_bot]) apply simp