src/HOL/Library/Countable_Set_Type.thy
changeset 59956 e936c2828bec
parent 59954 5ee7e9721eac
child 60059 8a6d947cc756
equal deleted inserted replaced
59955:0145010f3f83 59956:e936c2828bec
   285 lemmas cUn_cempty_left = Un_empty_left[Transfer.transferred]
   285 lemmas cUn_cempty_left = Un_empty_left[Transfer.transferred]
   286 lemmas cUn_cempty_right = Un_empty_right[Transfer.transferred]
   286 lemmas cUn_cempty_right = Un_empty_right[Transfer.transferred]
   287 lemmas cUn_cinsert_left[simp] = Un_insert_left[Transfer.transferred]
   287 lemmas cUn_cinsert_left[simp] = Un_insert_left[Transfer.transferred]
   288 lemmas cUn_cinsert_right[simp] = Un_insert_right[Transfer.transferred]
   288 lemmas cUn_cinsert_right[simp] = Un_insert_right[Transfer.transferred]
   289 lemmas cInt_cinsert_left = Int_insert_left[Transfer.transferred]
   289 lemmas cInt_cinsert_left = Int_insert_left[Transfer.transferred]
   290 lemmas cInt_cinsert_left_ifffempty[simp] = Int_insert_left_if0[Transfer.transferred]
   290 lemmas cInt_cinsert_left_if0[simp] = Int_insert_left_if0[Transfer.transferred]
   291 lemmas cInt_cinsert_left_if1[simp] = Int_insert_left_if1[Transfer.transferred]
   291 lemmas cInt_cinsert_left_if1[simp] = Int_insert_left_if1[Transfer.transferred]
   292 lemmas cInt_cinsert_right = Int_insert_right[Transfer.transferred]
   292 lemmas cInt_cinsert_right = Int_insert_right[Transfer.transferred]
   293 lemmas cInt_cinsert_right_ifffempty[simp] = Int_insert_right_if0[Transfer.transferred]
   293 lemmas cInt_cinsert_right_if0[simp] = Int_insert_right_if0[Transfer.transferred]
   294 lemmas cInt_cinsert_right_if1[simp] = Int_insert_right_if1[Transfer.transferred]
   294 lemmas cInt_cinsert_right_if1[simp] = Int_insert_right_if1[Transfer.transferred]
   295 lemmas cUn_cInt_distrib = Un_Int_distrib[Transfer.transferred]
   295 lemmas cUn_cInt_distrib = Un_Int_distrib[Transfer.transferred]
   296 lemmas cUn_cInt_distrib2 = Un_Int_distrib2[Transfer.transferred]
   296 lemmas cUn_cInt_distrib2 = Un_Int_distrib2[Transfer.transferred]
   297 lemmas cUn_cInt_crazy = Un_Int_crazy[Transfer.transferred]
   297 lemmas cUn_cInt_crazy = Un_Int_crazy[Transfer.transferred]
   298 lemmas csubset_cUn_eq = subset_Un_eq[Transfer.transferred]
   298 lemmas csubset_cUn_eq = subset_Un_eq[Transfer.transferred]
   343 lemmas cequalityI = equalityI[Transfer.transferred]
   343 lemmas cequalityI = equalityI[Transfer.transferred]
   344 
   344 
   345 
   345 
   346 subsection {* Additional lemmas*}
   346 subsection {* Additional lemmas*}
   347 
   347 
   348 subsubsection {* @{text femepty} *}
   348 subsubsection {* @{text cempty} *}
   349 
   349 
   350 lemma cemptyE [elim!]: "cin a cempty \<Longrightarrow> P" by simp
   350 lemma cemptyE [elim!]: "cin a cempty \<Longrightarrow> P" by simp
   351 
   351 
   352 subsubsection {* @{text finsert} *}
   352 subsubsection {* @{text cinsert} *}
   353 
   353 
   354 lemma countable_insert_iff: "countable (insert x A) \<longleftrightarrow> countable A"
   354 lemma countable_insert_iff: "countable (insert x A) \<longleftrightarrow> countable A"
   355 by (metis Diff_eq_empty_iff countable_empty countable_insert subset_insertI uncountable_minus_countable)
   355 by (metis Diff_eq_empty_iff countable_empty countable_insert subset_insertI uncountable_minus_countable)
   356 
   356 
   357 lemma set_cinsert:
   357 lemma set_cinsert: