This commit is contained in:
Meowyam
2023-02-23 15:06:14 +08:00
parent ee01aa1cd5
commit fd51156369
3 changed files with 26 additions and 13 deletions
+6 -5
View File
@@ -23,13 +23,14 @@ lin
ComplVA va ap = ResMay.insertComp ap (useV va) ;
-- : VS -> S -> VP ;
-- ComplVS vs s =
-- let vps = useV vs ;
-- subord = SubjS {s=""} s ;
-- in vps ** {} ;
ComplVS vs s = ResMay.insertObj (linS s) (useV vs) ;
-- let vps = useV vs ;
-- subord = SubjS {s=""} s ;
-- in vps ** {} ;
{-
-- : VQ -> QS -> VP ;
-- : VQ -> QS -> VP ;s
ComplVQ vq qs = ;