diff options
| author | aarne <unknown> | 2003-11-07 14:50:25 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-07 14:50:25 +0000 |
| commit | 6ae3322b373c52e59fb34360345d1c1e35049c5f (patch) | |
| tree | b45847520c17df60e54e5e960de0cafa20b26abd /grammars/prelude | |
| parent | 9199b65173e6bced29ae7c03dac163c20b2e52e0 (diff) | |
Some patches.
Diffstat (limited to 'grammars/prelude')
| -rw-r--r-- | grammars/prelude/Coordination.gf | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/grammars/prelude/Coordination.gf b/grammars/prelude/Coordination.gf index d8265e3c2..6ed4af791 100644 --- a/grammars/prelude/Coordination.gf +++ b/grammars/prelude/Coordination.gf @@ -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} ; |
