X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Frelocation%2Fnstream_id.ma;h=fcb6cca7208380c55ebe6a51a7cc987882d49284;hb=1fd63df4c77f5c24024769432ea8492748b4ac79;hp=11307fbd245c0d46c7832c0a4b5bc8e836701959;hpb=91ab6965be539b7ed0f3208e1c1fffd17aa151f7;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_id.ma b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_id.ma
index 11307fbd2..fcb6cca72 100644
--- a/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_id.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/relocation/nstream_id.ma
@@ -17,17 +17,17 @@ include "ground_2/relocation/rtmap_eq.ma".
 
 (* RELOCATION N-STREAM ******************************************************)
 
-let corec id: rtmap ≝ ↑id.
+corec definition id: rtmap ≝ ⫯id.
 
 interpretation "identity (nstream)"
    'Identity = (id).
 
 (* Basic properties *********************************************************)
 
-lemma id_rew: ↑𝐈𝐝 = 𝐈𝐝.
+lemma id_rew: ⫯𝐈𝐝 = 𝐈𝐝.
 <(stream_rew … (𝐈𝐝)) in ⊢ (???%); normalize //
 qed.
 
-lemma id_eq_rew: ↑𝐈𝐝 ≗ 𝐈𝐝.
+lemma id_eq_rew: ⫯𝐈𝐝 ≡ 𝐈𝐝.
 cases id_rew in ⊢ (??%); //
 qed.