diff options
| author | Théo Zimmermann | 2020-03-19 15:57:39 +0100 |
|---|---|---|
| committer | Théo Zimmermann | 2020-03-19 15:57:39 +0100 |
| commit | 0fe5cfd5fa81565b6045bd602b786ed38e19aaa9 (patch) | |
| tree | 0dcefd32242ace46e9fb837be486cf098f2525ac /theories/FSets/FSetCompat.v | |
| parent | 918e301faa228190f885f860510f4b6c352620f5 (diff) | |
| parent | e138fbf1e1cd95bfae05e17074f94a1ebde2edf8 (diff) | |
Merge PR #11760: firstorder: default tactic is “auto with core”
Reviewed-by: JasonGross
Reviewed-by: Zimmi48
Diffstat (limited to 'theories/FSets/FSetCompat.v')
| -rw-r--r-- | theories/FSets/FSetCompat.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/theories/FSets/FSetCompat.v b/theories/FSets/FSetCompat.v index 4edeaee72e..bff999042b 100644 --- a/theories/FSets/FSetCompat.v +++ b/theories/FSets/FSetCompat.v @@ -381,22 +381,22 @@ Module Update_Sets Instance lt_strorder : StrictOrder lt. Proof. split. - intros x Hx. apply (M.lt_not_eq Hx); auto with *. + intros x Hx. apply (M.lt_not_eq Hx). auto with crelations. exact M.lt_trans. Qed. Instance lt_compat : Proper (eq==>eq==>iff) lt. Proof. - apply proper_sym_impl_iff_2; auto with *. + apply proper_sym_impl_iff_2. 1-2: auto with crelations. intros s s' Hs u u' Hu H. assert (H0 : lt s' u). destruct (M.compare s' u) as [H'|H'|H']; auto. - elim (M.lt_not_eq H). transitivity s'; auto with *. + elim (M.lt_not_eq H). transitivity s'; auto. elim (M.lt_not_eq (M.lt_trans H H')); auto. destruct (M.compare s' u') as [H'|H'|H']; auto. elim (M.lt_not_eq H). - transitivity u'; auto with *. transitivity s'; auto with *. - elim (M.lt_not_eq (M.lt_trans H' H0)); auto with *. + transitivity u'. 2: auto with crelations. transitivity s'; auto. + elim (M.lt_not_eq (M.lt_trans H' H0)); auto with crelations. Qed. Definition compare s s' := |