; 20241007 R.v.Vessum converted python source to metta ; FILE: 3../../../hyperon-experimental/python/tests/test_pln_tv.py :10 ;

    (= (min $a $b) (if (< $a $b) $a $b))
    (= (s-tv (stv $s $c)) $s)
    (= (c-tv (stv $s $c)) $c)
    (= (stv (And $a $b))
   (stv (min (s-tv (stv $a)) (s-tv (stv $b)))
    (min (c-tv (stv $a)) (c-tv (stv $b)))))
    (= (stv (P A)) (stv 0.5 0.8))
    (= (stv (P B)) (stv 0.3 0.9))
        
;
; !(assertEqualToResult ( ) ( ) ) ;
lastline 19
;
        (: A Concept)
        (: B Concept)
        (: P Predicate)
        
;
;
lastline 24
;
; 3. 20241007 R.v.Vessum converted python source to metta 
;ready works 
!(assertEqualToResult (stv (And (P A) (P B))) ((stv 0.3 0.8))  ) 

;
;
lastline 27
;
;
;
lastline 30
;
; 4. 20241007 R.v.Vessum converted python source to metta 

; ready works 
(= (pln $expr) ($expr (stv $expr)))
!(assertEqualToResult (pln (And (P A) (P $x)))  ((And (P A) (P A)) (stv 0.5 0.8))                 ((And (P A) (P B)) (stv 0.3 0.8))                  ) 


;
;
lastline 12