File tree 4 files changed +2
-63
lines changed
4 files changed +2
-63
lines changed Original file line number Diff line number Diff line change 25
25
- ' coqorg/coq:8.15'
26
26
- ' coqorg/coq:8.16'
27
27
- ' coqorg/coq:8.17'
28
+ - ' coqorg/coq:8.18'
28
29
- ' coqorg/coq:dev'
29
30
fail-fast : false
30
31
steps :
Original file line number Diff line number Diff line change @@ -40,6 +40,7 @@ tested_coq_opam_versions:
40
40
- version : ' 8.15'
41
41
- version : ' 8.16'
42
42
- version : ' 8.17'
43
+ - version : ' 8.18'
43
44
- version : ' dev'
44
45
45
46
make_target : theories
Original file line number Diff line number Diff line change @@ -6,45 +6,6 @@ Require Import ExtLib.Core.RelDec.
6
6
Set Implicit Arguments .
7
7
Set Strict Implicit .
8
8
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
-
48
9
Global Instance RelDec_ascii : RelDec (@eq Ascii.ascii) :=
49
10
{ rel_dec := Ascii.eqb }.
50
11
Original file line number Diff line number Diff line change @@ -39,30 +39,6 @@ Definition deprecated_ascii_cmp (l r : Ascii.ascii) : comparison :=
39
39
#[deprecated(since="8.15",note="Use Ascii.compare instead.")]
40
40
Notation ascii_cmp := deprecated_ascii_cmp.
41
41
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
-
66
42
Global Instance RelDec_string : RelDec (@eq string) :=
67
43
{| rel_dec := String.eqb |}.
68
44
You can’t perform that action at this time.
0 commit comments