From 5f45871feefc09f080bde2b5af349f8ccda16a84 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Thu, 29 Mar 2018 17:18:16 +0200 Subject: Fix #7113: Program Let Fixpoint in section causes anomaly --- test-suite/bugs/closed/7113.v | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 test-suite/bugs/closed/7113.v (limited to 'test-suite/bugs') diff --git a/test-suite/bugs/closed/7113.v b/test-suite/bugs/closed/7113.v new file mode 100644 index 000000000..976e60f20 --- /dev/null +++ b/test-suite/bugs/closed/7113.v @@ -0,0 +1,10 @@ +Require Import Program.Tactics. +Section visibility. + + (* used to anomaly *) + Program Let Fixpoint ev' (n : nat) : bool := _. + Next Obligation. exact true. Qed. + + Check ev'. +End visibility. +Fail Check ev'. -- cgit v1.2.3