first draft for Diophantine grammars

This commit is contained in:
Krasimir Angelov
2025-11-13 11:02:40 +01:00
parent 3ee4f6ce9c
commit 54839a9796
16 changed files with 528 additions and 400 deletions
+1 -1
View File
@@ -110,7 +110,7 @@ lookupResDef gr (m,c)
ResOper _ (Just (L _ t)) -> return t
ResOper _ Nothing -> return (Q (m,c))
CncCat (Just (L _ ty)) _ _ _ _ -> lock c ty
CncCat _ _ _ _ _ -> lock c defLinType
CncCat _ _ _ _ _ -> lock c defLinType
CncFun (Just (_,cat,_,_)) (Just (L _ tr)) _ _ -> unlock cat tr
CncFun _ (Just (L _ tr)) _ _ -> return tr