aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/2136.v
diff options
context:
space:
mode:
authorVincent Laporte2018-10-02 13:44:46 +0000
committerVincent Laporte2018-10-04 08:01:34 +0000
commitdb22ae6140259dd065fdd80af4cb3c3bab41c184 (patch)
treee17ad7016014a4e2dd4001d826575342c2812fc3 /test-suite/bugs/closed/2136.v
parent53929e9bacf251f60c85d4ff24d46fec2c42ab4b (diff)
rename test files (do not start by a digit)
Diffstat (limited to 'test-suite/bugs/closed/2136.v')
-rw-r--r--test-suite/bugs/closed/2136.v61
1 files changed, 0 insertions, 61 deletions
diff --git a/test-suite/bugs/closed/2136.v b/test-suite/bugs/closed/2136.v
deleted file mode 100644
index 2fcfbe40dc..0000000000
--- a/test-suite/bugs/closed/2136.v
+++ /dev/null
@@ -1,61 +0,0 @@
-(* Bug #2136
-
-The fsetdec tactic seems to get confused by hypotheses like
- HeqH1 : H1 = MkEquality s0 s1 b
-If I clear them then it is able to solve my goal; otherwise it is not.
-I would expect it to be able to solve the goal even without this hypothesis
-being cleared. A small, self-contained example is below.
-
-I have coq r12238.
-
-
-Thanks
-Ian
-*)
-
-
-Require Import FSets.
-Require Import Arith.
-Require Import FSetWeakList.
-
-Module DecidableNat.
-Definition t := nat.
-Definition eq := @eq nat.
-Definition eq_refl := @refl_equal nat.
-Definition eq_sym := @sym_eq nat.
-Definition eq_trans := @trans_eq nat.
-Definition eq_dec := eq_nat_dec.
-End DecidableNat.
-
-Module NatSet := Make(DecidableNat).
-
-Module Export Dec := WDecide (NatSet).
-Import FSetDecideAuxiliary.
-
-Parameter MkEquality : forall ( s0 s1 : NatSet.t )
- ( x : nat ),
- NatSet.Equal s1 (NatSet.add x s0).
-
-Lemma ThisLemmaWorks : forall ( s0 s1 : NatSet.t )
- ( a b : nat ),
- NatSet.In a s0
- -> NatSet.In a s1.
-Proof.
-intros.
-remember (MkEquality s0 s1 b) as H1.
-clear HeqH1.
-fsetdec.
-Qed.
-
-Lemma ThisLemmaWasFailing : forall ( s0 s1 : NatSet.t )
- ( a b : nat ),
- NatSet.In a s0
- -> NatSet.In a s1.
-Proof.
-intros.
-remember (MkEquality s0 s1 b) as H1.
-fsetdec.
-(*
-Error: Tactic failure: because the goal is beyond the scope of this tactic.
-*)
-Qed.