From de7dbd6bb083b008280d1c26ba3bbef39d720e50 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Sun, 18 Feb 2018 14:40:00 -0500 Subject: Strip the pointed instance names off of the default value in list expansion This is required for reification to work, it seems --- src/Util/ListUtil.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Util/ListUtil.v') diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index fe9aa8408..b34a5e322 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -1814,7 +1814,7 @@ Qed. Ltac expand_lists _ := let default_for A := match goal with - | _ => constr:(_ : pointed A) + | _ => (eval lazy in (_ : pointed A)) | _ => let __ := match goal with _ => idtac "Warning: could not infer a default value for list type" A end in constr:(I : I) end in -- cgit v1.2.3