theory Merge_A imports"HOL-Library.BNF_Corec" begin
codatatype 'a ta = Ca (sa1: 'a) (sa2: "'a ta")
consts gb :: "'a ta \ 'a ta"
corec fa where "fa = Ca (Suc 0) fa"
corec ga :: "'a ta \ 'a ta" where "ga t = Ca (sa1 t) (sa2 t)"
friend_of_corec ga :: "'a ta \ 'a ta" where "ga t = Ca (sa1 t) (Ca (sa1 t) (sa2 t))" sorry
thm ta.coinduct_upto thm ta.cong_refl
end
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.0Bemerkung:
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
