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
|
||||
-- records, perform the recursion, and unpackage.
|
||||
|
||||
private module _ where
|
||||
module _ where
|
||||
lattice : ∀ {k : ℕ} → Lattice (IterProd k)
|
||||
lattice {0} = record
|
||||
{ _≈_ = _≈₂_
|
||||
|
|
Loading…
Reference in New Issue
Block a user