src/HOL/HOL.thy
changeset 26747 f32fa5f5bdd1
parent 26739 947b6013e863
child 26957 e3f04fdd994d
equal deleted inserted replaced
26746:b010007e9d31 26747:f32fa5f5bdd1
  1697 
  1697 
  1698 setup {*
  1698 setup {*
  1699   CodeUnit.add_const_alias @{thm equals_eq}
  1699   CodeUnit.add_const_alias @{thm equals_eq}
  1700   #> CodeName.setup
  1700   #> CodeName.setup
  1701   #> CodeTarget.setup
  1701   #> CodeTarget.setup
  1702   #> Nbe.setup @{sort eq} [(@{const_name eq_class.eq}, @{const_name "op ="})]
  1702   #> Nbe.setup
  1703 *}
  1703 *}
  1704 
  1704 
  1705 lemma [code func]:
  1705 lemma [code func]:
  1706   shows "False \<and> x \<longleftrightarrow> False"
  1706   shows "False \<and> x \<longleftrightarrow> False"
  1707     and "True \<and> x \<longleftrightarrow> x"
  1707     and "True \<and> x \<longleftrightarrow> x"