Some patches.

This commit is contained in:
aarne
2003-11-07 14:50:25 +00:00
parent 9199b65173
commit 6ae3322b37
4 changed files with 8 additions and 2 deletions

View File

@@ -69,9 +69,9 @@ oper
conjunctDistrTable2 :
(P,Q : Type) -> ConjunctionDistr -> ListTable2 P Q -> {s : P => Q => Str} =
\_,_,or,xs ->
\P,Q,or,xs ->
{s =
table {p => table {q => or.s1++ xs.s1 ! p ! q ++ or.s2 ++ xs.s2 ! p ! q}}} ;
table P {p => table Q {q => or.s1++ xs.s1 ! p ! q ++ or.s2 ++ xs.s2 ! p ! q}}} ;
ListTable3 : Type -> Type -> Type -> Type = \P,Q,R ->
{s1,s2 : P => Q => R => Str} ;