patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-10 22:28:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Reals form a ring (#59)

Browse Source
This commit is contained in:
Patrick Stevens
2019-11-02 08:34:09 +00:00
committed by GitHub
parent df1ac6a303
commit a66080b8ae
22 changed files with 155 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Sequences.agda
View File

@@ -59,3 +59,7 @@ indexAndApply s1 s2 f {succ m} = indexAndApply (Sequence.tail s1) (Sequence.tail
mapAndApply : {a b c d : _} {A : Set a} {B : Set b} {C : Set c} {D : Set d} (s1 : Sequence A) (s2 : Sequence B) (f : A → B → C) (g : C → D) → (m : ℕ) → index (map g (apply f s1 s2)) m ≡ g (f (index s1 m) (index s2 m))
mapAndApply s1 s2 f g zero = refl
mapAndApply s1 s2 f g (succ m) = mapAndApply (Sequence.tail s1) (Sequence.tail s2) f g m
assemble : {a : _} {A : Set a} → (x : A) → (s : Sequence A) → Sequence A
Sequence.head (assemble x s) = x
Sequence.tail (assemble x s) = s