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=8901e2d711ae5ecd0f972afd8f1950d402e432c6;hp=290c3e4c6b6abbf06df1221aa97d615d5de13fd3;hb=cc600ed1e115d5566947288d532a1e89d989227f;hpb=ea918ec7701db4458c5ca25885e80abc6fed1be7

diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
index 290c3e4c6..8901e2d71 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma
@@ -14,6 +14,7 @@
 
 include "ground_2/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 "static_2/syntax/term.ma".
 
@@ -26,6 +27,8 @@ record model: Type[1] ≝ {
    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 *)
@@ -38,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).