Skip to content

Commit 92a00aa

Browse files
committedOct 25, 2023
Remove deprecated definitions
1 parent eed3062 commit 92a00aa

File tree

4 files changed

+2
-63
lines changed

4 files changed

+2
-63
lines changed
 

‎.github/workflows/docker-action.yml

+1
Original file line numberDiff line numberDiff line change
@@ -25,6 +25,7 @@ jobs:
2525
- 'coqorg/coq:8.15'
2626
- 'coqorg/coq:8.16'
2727
- 'coqorg/coq:8.17'
28+
- 'coqorg/coq:8.18'
2829
- 'coqorg/coq:dev'
2930
fail-fast: false
3031
steps:

‎meta.yml

+1
Original file line numberDiff line numberDiff line change
@@ -40,6 +40,7 @@ tested_coq_opam_versions:
4040
- version: '8.15'
4141
- version: '8.16'
4242
- version: '8.17'
43+
- version: '8.18'
4344
- version: 'dev'
4445

4546
make_target: theories

‎theories/Data/Char.v

-39
Original file line numberDiff line numberDiff line change
@@ -6,45 +6,6 @@ Require Import ExtLib.Core.RelDec.
66
Set Implicit Arguments.
77
Set Strict Implicit.
88

9-
Definition deprecated_ascii_dec (l r : Ascii.ascii) : bool :=
10-
match l , r with
11-
| Ascii.Ascii l1 l2 l3 l4 l5 l6 l7 l8 ,
12-
Ascii.Ascii r1 r2 r3 r4 r5 r6 r7 r8 =>
13-
if Bool.eqb l1 r1 then
14-
if Bool.eqb l2 r2 then
15-
if Bool.eqb l3 r3 then
16-
if Bool.eqb l4 r4 then
17-
if Bool.eqb l5 r5 then
18-
if Bool.eqb l6 r6 then
19-
if Bool.eqb l7 r7 then
20-
if Bool.eqb l8 r8 then true
21-
else false
22-
else false
23-
else false
24-
else false
25-
else false
26-
else false
27-
else false
28-
else false
29-
end.
30-
31-
#[deprecated(since="8.9",note="Use Ascii.eqb instead.")]
32-
Notation ascii_dec := deprecated_ascii_dec.
33-
34-
Theorem deprecated_ascii_dec_sound : forall l r,
35-
ascii_dec l r = true <-> l = r.
36-
Proof.
37-
unfold ascii_dec. intros.
38-
destruct l; destruct r.
39-
repeat match goal with
40-
| [ |- (if ?X then _ else _) = true <-> _ ] =>
41-
consider X; intros; subst
42-
end; split; congruence.
43-
Qed.
44-
45-
#[deprecated(since="8.9",note="Use Ascii.eqb_eq instead.")]
46-
Notation ascii_dec_sound := deprecated_ascii_dec_sound.
47-
489
Global Instance RelDec_ascii : RelDec (@eq Ascii.ascii) :=
4910
{ rel_dec := Ascii.eqb }.
5011

‎theories/Data/String.v

-24
Original file line numberDiff line numberDiff line change
@@ -39,30 +39,6 @@ Definition deprecated_ascii_cmp (l r : Ascii.ascii) : comparison :=
3939
#[deprecated(since="8.15",note="Use Ascii.compare instead.")]
4040
Notation ascii_cmp := deprecated_ascii_cmp.
4141

42-
Fixpoint deprecated_string_dec (l r : string) : bool :=
43-
match l , r with
44-
| EmptyString , EmptyString => true
45-
| String l ls , String r rs =>
46-
if Ascii.eqb l r then deprecated_string_dec ls rs
47-
else false
48-
| _ , _ => false
49-
end.
50-
51-
#[deprecated(since="8.9",note="Use String.eqb instead.")]
52-
Notation string_dec := deprecated_string_dec.
53-
54-
Theorem deprecated_string_dec_sound : forall l r,
55-
string_dec l r = true <-> l = r.
56-
Proof.
57-
induction l; destruct r; try (constructor; easy); simpl.
58-
case (Ascii.eqb_spec a a0); simpl; [intros -> | constructor; now intros [= ]].
59-
case (IHl r); intros; constructor; intros; f_equal; auto.
60-
inversion H1; subst; auto.
61-
Qed.
62-
63-
#[deprecated(since="8.9",note="Use String.eqb_eq instead.")]
64-
Notation string_dec_sound := deprecated_string_dec_sound.
65-
6642
Global Instance RelDec_string : RelDec (@eq string) :=
6743
{| rel_dec := String.eqb |}.
6844

0 commit comments

Comments
 (0)