X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdidactic%2Fexercises%2Fduality.ma;h=dca98ddc7652616d5e2f9a63977e28f061bd3e19;hb=645f1dd2063a42d8deb74069d83b0589a61270d2;hp=ea3a987d389937410b4d4f9fb3e05be42847bf9d;hpb=ff6a1396270493dcf0e1f673f32a8213a8ce3751;p=helm.git

diff --git a/helm/software/matita/library/didactic/exercises/duality.ma b/helm/software/matita/library/didactic/exercises/duality.ma
index ea3a987d3..dca98ddc7 100644
--- a/helm/software/matita/library/didactic/exercises/duality.ma
+++ b/helm/software/matita/library/didactic/exercises/duality.ma
@@ -130,8 +130,10 @@ definition v20 ≝ λx.
    La semantica della formula `(A ∨ C)` nel mondo `v20` in cui 
    `A` vale `2` e `C` vale `0` deve valere `1`.
    
+   Decommenta ed esegui.
 *)    
-eval normalize on [[FOr (FAtom 0) (FAtom 2)]]_v20. 
+
+(* eval normalize on [[FOr (FAtom 0) (FAtom 2)]]_v20. *) 
 
 (*DOCBEGIN
 
@@ -188,10 +190,12 @@ let rec negate (F: Formula) on F : Formula ≝
   
    Testare la funzione `negate`. Il risultato atteso è:
    
-       FOr (FNot (FAtom O)) (FImpl FTop (FNot (FAtom 1))) 
+       FOr (FNot (FAtom O)) (FImpl FTop (FNot (FAtom 1)))
+       
+   Decommenta ed esegui 
 *)
 
-eval normalize on (negate (FOr (FAtom 0) (FImpl FTop (FAtom 1)))).
+(* eval normalize on (negate (FOr (FAtom 0) (FImpl FTop (FAtom 1)))). *)
 
 (* ATTENZIONE
    ==========
@@ -239,9 +243,11 @@ let rec dualize (F : Formula) on F : Formula ≝
    Testare la funzione `dualize`. Il risultato atteso è:
    
        FAnd (FNot (FAtom O)) (FOr (FAtom 1) FTop) 
+       
+   Decommenta ed esegui.
 *)
 
-eval normalize on (dualize (FImpl (FAtom 0) (FAnd (FAtom 1) FBot))).
+(* eval normalize on (dualize (FImpl (FAtom 0) (FAnd (FAtom 1) FBot))). *)
 
 (* Spiegazione
    ===========