print non-dependent products (easy mode)

only if the AST uses SN, like with Eq

lib/Quox/Parser/Parser.idr

@@ -224,10 +224,14 @@ mutual
   private covering
   infixEqTerm : Grammar True PTerm
   infixEqTerm = do
-    l <- appTerm
-    rty <- optional [|MkPair (resC "≡" *> term) (resC ":" *> appTerm)|]
+    l <- infixTimesTerm
+    rty <- optional [|MkPair (resC "≡" *> term) (resC ":" *> infixTimesTerm)|]
     pure $ maybe l (\rty => Eq (Nothing, snd rty) l (fst rty)) rty
 
+  private covering
+  infixTimesTerm : Grammar True PTerm
+  infixTimesTerm = foldr1 (Sig Nothing) <$> sepBy1 (resC "×") appTerm
+
   private covering
   appTerm : Grammar True PTerm
   appTerm = resC "★"  *> [|TYPE nat|]