author | wenzelm |
Sun, 18 Oct 2009 22:19:05 +0200 | |
changeset 32997 | e760950ba6c5 |
parent 32996 | d2e48879e65a |
child 32998 | 31b19fa0de0b |
child 33005 | bd8e15958708 |
--- a/src/HOLCF/Universal.thy Sun Oct 18 22:16:37 2009 +0200 +++ b/src/HOLCF/Universal.thy Sun Oct 18 22:19:05 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_f [where f=basis_emb]) + apply (subst f_inv_onto_f [where f=basis_emb]) apply (rule ubasis_until) apply (rule range_eqI [where x=compact_bot]) apply simp