X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Fmodels%2Fmodel.ma;h=290c3e4c6b6abbf06df1221aa97d615d5de13fd3;hp=86c624e1bd26fcad3d629811420609a664e1e306;hb=41b61472d2c475e0f69e3dfc85539da3ad2bac1e;hpb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48

diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
index 86c624e1b..290c3e4c6 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
@@ -20,11 +20,16 @@ include "static_2/syntax/term.ma".
 (* MODEL ********************************************************************)
 
 record model: Type[1] ≝ {
-   dd: Type[0];                            (* denotations domain *)
-   sq: relation2 dd dd;                    (* structural equivalence *)
-   sv: nat → dd;                           (* sort evaluation *)
-   ap: dd → dd → dd;                       (* application *)
-   ti: (nat → dd) → (nat → dd) → term → dd (* term interperpretation *)
+(* Note: denotations domain *)
+   dd: Type[0];
+(* Note: structural equivalence *)
+   sq: relation2 dd dd;
+(* Note: sort evaluation *)
+   sv: nat → dd;
+(* Note: application *)
+   ap: dd → dd → dd;
+(* Note: term interperpretation *)
+   ti: (nat → dd) → (nat → dd) → term → dd
 }.
 
 interpretation "structural equivalence (model)"