Theory Stream_Input2

theory Stream_Input2
imports Stream_More_Corec_Upto1
theory Stream_Input2
imports Stream_More_Corec_Upto1
begin

type_synonym 'a K2 = "'a * 'a"
composition_bnf (open) K2: "'a * 'a"

abbreviation "K2_map ≡ λf. f ** f"
abbreviation "K2_rel ≡ λR. rel_prod R R"
abbreviation "K2_set ≡ λx. Basic_BNFs.fsts x ∪ Basic_BNFs.snds x"
abbreviation "bd_K2 ≡ natLeq"
type_synonym bd_type_K2 = nat

end