Skip to content

Commit

Permalink
Fixed compilation on Coq 8.17 and 8.18
Browse files Browse the repository at this point in the history
  • Loading branch information
anlun committed May 10, 2024
1 parent 1025881 commit 5439684
Show file tree
Hide file tree
Showing 5 changed files with 13 additions and 5 deletions.
6 changes: 4 additions & 2 deletions .github/workflows/nix-action-8.17.yml
Original file line number Diff line number Diff line change
Expand Up @@ -102,12 +102,14 @@ name: Nix CI for bundle 8.17
'on':
pull_request:
paths:
- .github/workflows/**
- .github/workflows/nix-action-8.17.yml
pull_request_target:
paths-ignore:
- .github/workflows/nix-action-8.17.yml
types:
- opened
- synchronize
- reopened
push:
branches:
- master
- '**'
2 changes: 1 addition & 1 deletion .github/workflows/nix-action-8.18.yml
Original file line number Diff line number Diff line change
Expand Up @@ -112,4 +112,4 @@ name: Nix CI for bundle 8.18
- reopened
push:
branches:
- master
- '**'
2 changes: 1 addition & 1 deletion .github/workflows/nix-action-8.19.yml
Original file line number Diff line number Diff line change
Expand Up @@ -112,4 +112,4 @@ name: Nix CI for bundle 8.19
- reopened
push:
branches:
- master
- '**'
3 changes: 3 additions & 0 deletions .nix/config.nix
Original file line number Diff line number Diff line change
Expand Up @@ -33,12 +33,15 @@
default-bundle = "8.19";

bundles."8.17" = {
push-branches = [ "**" ];
coqPackages.coq.override.version = "8.17";
};
bundles."8.18" = {
push-branches = [ "**" ];
coqPackages.coq.override.version = "8.18";
};
bundles."8.19" = {
push-branches = [ "**" ];
coqPackages.coq.override.version = "8.19";
};

Expand Down
5 changes: 4 additions & 1 deletion HahnCountable.v
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,10 @@ Lemma findP_spec A (cond : A -> Prop) (l : list A)
forall j, j < findP cond l -> ~ cond (nth j l d).
Proof.
induction l; ins; desf; splits; ins; desf; try lia; intuition.
eauto using PeanoNat.lt_S_n.
match goal with
| H' : S ?n < S _, H : forall x, _ |- _ => apply (H n); auto
end.
lia.
Qed.

Lemma exists_min (cond : nat -> Prop) (H: exists n, cond n) :
Expand Down

0 comments on commit 5439684

Please sign in to comment.