Slightly tweak module style in Forward.agda
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
b28994e1d2
commit
f01df5af4b
@ -259,7 +259,7 @@ module WithProg (prog : Program) where
|
||||
open WithEvaluator
|
||||
open WithEvaluator using (result; analyze; result≈analyze-result) public
|
||||
|
||||
private module WithInterpretation {{latticeInterpretationˡ : LatticeInterpretation isLatticeˡ}} where
|
||||
private module _ {{latticeInterpretationˡ : LatticeInterpretation isLatticeˡ}} where
|
||||
open LatticeInterpretation latticeInterpretationˡ
|
||||
using ()
|
||||
renaming
|
||||
@ -300,8 +300,6 @@ module WithProg (prog : Program) where
|
||||
⟦⟧ᵛ-⊔ᵛ-∨ {vs₁ = vs'} {vs₂ = foldr _⊔ᵛ_ ⊥ᵛ vss'} ρ
|
||||
(inj₂ (⟦⟧ᵛ-foldr ⟦vs⟧ρ vs∈vss'))
|
||||
|
||||
open WithInterpretation
|
||||
|
||||
module _ {{evaluator : Evaluator}} {{interpretation : LatticeInterpretation isLatticeˡ}} where
|
||||
open Evaluator evaluator
|
||||
open LatticeInterpretation interpretation
|
||||
@ -314,8 +312,8 @@ module WithProg (prog : Program) where
|
||||
{{evaluator}} : Evaluator
|
||||
{{interpretation}} : LatticeInterpretation isLatticeˡ
|
||||
|
||||
open Evaluator evaluator
|
||||
open LatticeInterpretation interpretation
|
||||
open Evaluator evaluator public
|
||||
open LatticeInterpretation interpretation public
|
||||
|
||||
field
|
||||
valid : IsValid
|
||||
|
Loading…
Reference in New Issue
Block a user