Theory Stream_Input5

theory Stream_Input5
imports Stream_More_Corec_Upto4
theory Stream_Input5
imports Stream_More_Corec_Upto4
begin

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

abbreviation "K5_map ≡ λf. f ** f"
abbreviation "K5_rel ≡ λR. rel_prod R R"
abbreviation "K5_set ≡ λx. Basic_BNFs.fsts x ∪ Basic_BNFs.snds x"
abbreviation "bd_K5 ≡ natLeq"
type_synonym bd_type_K5 = nat

end