X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Fmodels%2Fmodel.ma;h=a5a7ae0d6e1b81e340aef41886789e6e21f43cb5;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=88703cfa2e5f8d4e4b7c94f34c85952d5864fc83;hpb=5a0d5df90ad4096c4d7bdc50ce69cf8673ea6e57;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
index 88703cfa2..a5a7ae0d6 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
@@ -12,19 +12,27 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/notation/relations/ringeq_3.ma".
+include "ground/notation/relations/ringeq_3.ma".
 include "apps_2/notation/models/at_3.ma".
+include "apps_2/notation/models/oplus_4.ma".
 include "apps_2/notation/models/wbrackets_4.ma".
-include "basic_2/syntax/term.ma".
+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: conjunction *)
+   co: bool → dd → dd → dd;
+(* Note: application *)
+   ap: dd → dd → dd;
+(* Note: term interperpretation *)
+   ti: (nat → dd) → (nat → dd) → term → dd
 }.
 
 interpretation "structural equivalence (model)"
@@ -33,6 +41,9 @@ interpretation "structural equivalence (model)"
 interpretation "application (model)"
    'At M d1 d2 = (ap M d1 d2).
 
+interpretation "conjunction (model)"
+   'OPlus M p d1 d2 = (co M p d1 d2).
+
 interpretation "term interpretation (model)"
    'WBrackets M gv lv T = (ti M gv lv T).