Skip to content
Snippets Groups Projects
Commit 1ee892d6 authored by Thibaut Pérami's avatar Thibaut Pérami
Browse files

Add missing Bind Scope for fin

parent db81d6be
No related branches found
No related tags found
1 merge request!503Add missing Bind Scope for fin
......@@ -69,6 +69,8 @@ longer supported by this release.
`Fixpoint f (t : gtest) := let 'GTest ts := t in map_fold (λ _ t', plus (f t')) 1 ts`.
- Make `fin` number literal notations work with numbers above 10. (by Thibaut
Pérami)
- Bind `fin` type to `fin` scope, so function taking a `fin` as argument will
implicitly parse it in `fin` scope (by Thibaut Pérami).
- Change premise `Equivalence` into `PreOrder` for `set_fold_proper`.
- Weaken `Proper` premises of `set_ind`, `set_fold_ind`, `set_fold_proper`. If
you use `solve_proper` to solve these premises, no change should be needed. If
......
......@@ -17,6 +17,7 @@ Notation FS := Fin.FS.
Declare Scope fin_scope.
Delimit Scope fin_scope with fin.
Bind Scope fin_scope with fin.
Global Arguments Fin.FS _ _%fin : assert.
(** Allow any non-negative number literal to be parsed as a [fin]. For example
......
From stdpp Require Import fin.
Definition f n m (p : fin n) := m < p.
Lemma test : f 47 13 32.
Proof. vm_compute. lia. Qed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment