Make 'lattice' public
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
b1c6b4c99a
commit
6384f7006e
|
@ -20,7 +20,7 @@ IterProd k = iterate k (λ t → A × t) B
|
||||||
-- To make iteration more convenient, package the definitions in Lattice
|
-- To make iteration more convenient, package the definitions in Lattice
|
||||||
-- records, perform the recursion, and unpackage.
|
-- records, perform the recursion, and unpackage.
|
||||||
|
|
||||||
private module _ where
|
module _ where
|
||||||
lattice : ∀ {k : ℕ} → Lattice (IterProd k)
|
lattice : ∀ {k : ℕ} → Lattice (IterProd k)
|
||||||
lattice {0} = record
|
lattice {0} = record
|
||||||
{ _≈_ = _≈₂_
|
{ _≈_ = _≈₂_
|
||||||
|
|
Loading…
Reference in New Issue
Block a user