fixes in Attempto

This commit is contained in:
aarne
2010-01-04 21:19:13 +00:00
parent 14efc8a8a5
commit 234a3d3633
10 changed files with 48 additions and 33 deletions

View File

@@ -211,9 +211,6 @@ lin for_allMassS cn =
lin if_thenS = mkS if_then_Conj ;
oper adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
lin falseS s = mkS (adj_thatCl false_A s) ;
lin not_provableS s = mkS negativePol (adj_thatCl provable_A s) ;
lin possibleS s = mkS (adj_thatCl possible_A s) ;