fact: Fixpoint qdenote (e : qexpr) : nat := match e with | qNatO => O | qNatS x => S (qdenote x) | qNatMul x y => Nat.mul (qdenote x) (qdenote y) | qConst k => k end.
imports: Coq.quote.Quote Reify.ReifyCommon Coq.NArith.NArith PerformanceExperiments.Harness Reify.BenchmarkExtraUtil