diff options
| author | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-02-17 13:32:12 +0100 |
|---|---|---|
| committer | Helmut Grohne <grohne@cs.uni-bonn.de> | 2014-02-17 13:32:12 +0100 |
| commit | 4e394529b4462c7266accfb8b9b014696184b36d (patch) | |
| tree | feb8814a9a7e92129e5bebfc6075c351ea362db0 | |
| parent | ac482b1a6abeef4cb5e4779b554355b239e3b997 (diff) | |
| download | bidiragda-4e394529b4462c7266accfb8b9b014696184b36d.tar.gz | |
fix compilation on Agda 2.3.0.1
| -rw-r--r-- | FinMap.agda | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FinMap.agda b/FinMap.agda index 240bbe1..fa13144 100644 --- a/FinMap.agda +++ b/FinMap.agda @@ -99,7 +99,7 @@ lemma-tabulate-∘ : {n : ℕ} {A : Set} → {f g : Fin n → A} → f ≗ g → lemma-tabulate-∘ {zero} {_} {f} {g} f≗g = refl lemma-tabulate-∘ {suc n} {_} {f} {g} f≗g = cong₂ _∷_ (f≗g zero) (lemma-tabulate-∘ (f≗g ∘ suc)) -lemma-lookupM-fromFunc : {n : ℕ} {A : Set} → (f : Fin n → A) → flip lookupM (fromFunc f) ≗ just ∘ f +lemma-lookupM-fromFunc : {n : ℕ} {A : Set} → (f : Fin n → A) → flip lookupM (fromFunc f) ≗ Maybe.just ∘ f lemma-lookupM-fromFunc f zero = refl lemma-lookupM-fromFunc f (suc i) = lemma-lookupM-fromFunc (f ∘ suc) i |