"identity element (total relocation streams)"
'ElementI = (tr_id).
-(* Basic constructions (specific) *******************************************)
+(* Basic constructions ******************************************************)
lemma tr_id_unfold: ⫯𝐢 = 𝐢.
<(stream_unfold … (𝐢)) in ⊢ (???%); //