From 330e5af93e537710ae61364867b0303d2fe1315e Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 13 Jun 2018 17:04:25 -0400 Subject: Actually use primitive projections in PrimitiveHList --- src/Util/PrimitiveHList.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Util/PrimitiveHList.v') diff --git a/src/Util/PrimitiveHList.v b/src/Util/PrimitiveHList.v index 356861ebe..b1f4498b5 100644 --- a/src/Util/PrimitiveHList.v +++ b/src/Util/PrimitiveHList.v @@ -1,6 +1,8 @@ Require Import Coq.Lists.List. Require Import Crypto.Util.PrimitiveProd. +Import Primitive.Notations. + Fixpoint hlist {A} (P : A -> Type) (ls : list A) : Type := match ls return Type with | nil => unit -- cgit v1.2.3