From 40c830beaad34a9ad435816da11fb93322368478 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Fri, 13 Mar 2020 17:52:02 +0100 Subject: Fixes #11692 (clear dependent knows about let-in). --- test-suite/output/clear.out | 5 +++++ test-suite/output/clear.v | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 test-suite/output/clear.out create mode 100644 test-suite/output/clear.v (limited to 'test-suite') diff --git a/test-suite/output/clear.out b/test-suite/output/clear.out new file mode 100644 index 0000000000..42e3abf26f --- /dev/null +++ b/test-suite/output/clear.out @@ -0,0 +1,5 @@ +1 subgoal + + z := 0 : nat + ============================ + True diff --git a/test-suite/output/clear.v b/test-suite/output/clear.v new file mode 100644 index 0000000000..d584cf752e --- /dev/null +++ b/test-suite/output/clear.v @@ -0,0 +1,8 @@ +Module Wish11692. + +(* Support for let-in in clear dependent *) + +Goal forall x : Prop, let z := 0 in let z' : (fun _ => True) x := I in let y := x in y -> True. +Proof. intros x z z' y H. clear dependent x. Show. exact I. Qed. + +End Wish11692. -- cgit v1.2.3