diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-03 17:15:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-04 18:42:22 +0200 |
| commit | e1e0f4f7f3c549fd3d5677b67c6b13ed687e6f12 (patch) | |
| tree | 70d40db0a8bb6378bb97d9c7c72567045bd4bd78 /theories/Lists/ListSet.v | |
| parent | 6c9e2ded8fc093e42902d008a883b6650533d47f (diff) | |
Make standard library independent of the names generated by
induction/elim over a dependent elimination principle for Prop
arguments.
Diffstat (limited to 'theories/Lists/ListSet.v')
| -rw-r--r-- | theories/Lists/ListSet.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/theories/Lists/ListSet.v b/theories/Lists/ListSet.v index b846c48da..03c2222aa 100644 --- a/theories/Lists/ListSet.v +++ b/theories/Lists/ListSet.v @@ -147,8 +147,8 @@ Section first_definitions. simple induction x; simpl. tauto. intros a0 l; elim (Aeq_dec a a0). - intros; discriminate H0. - unfold not; intros; elim H1; auto with datatypes. + intros _ _ [=]. + unfold not; intros H H0 H1 [|]; auto with datatypes. Qed. Lemma set_mem_complete2 : @@ -157,7 +157,7 @@ Section first_definitions. simple induction x; simpl. tauto. intros a0 l; elim (Aeq_dec a a0). - intros; elim H0; auto with datatypes. + intros H H0 []; auto with datatypes. tauto. Qed. @@ -204,7 +204,7 @@ Section first_definitions. simpl; do 3 intro. elim (Aeq_dec b a0). simpl; tauto. - simpl; intros; elim H0. + simpl; intros H0 [|]. trivial with datatypes. tauto. tauto. |