avoid constant norms in norm-template

src/PWhile/InferEt.hs

@@ -268,7 +268,8 @@ p1 `normTemplateEq` p2 = and $ P.coefficients $
   P.zipCoefficientsWith (const False) (const False) (\ _ _ -> True) p1 p2
 
 norm :: C.Norm -> NormTemplate
-norm = P.variable
+norm (C.Norm _ (E.Constant _)) = P.coefficient 1
+norm n                         = P.variable n
 
 normFromExp :: E.Exp -> NormTemplate
 normFromExp e = norm (C.Norm (e .>= 0) e)