Variables.hs

-- Note: this is an automatically generated file. Do not edit.

-- | DSL functions for hydra.core.variables

module Hydra.Core.Dsl.Variables where

import qualified Hydra.Core.Ast as Ast
import qualified Hydra.Core.Coders as Coders
import qualified Hydra.Core.Diff as Diff
import qualified Hydra.Core.Docs as Docs
import qualified Hydra.Core.Dsl.Ast as DslAst
import qualified Hydra.Core.Dsl.Coders as DslCoders
import qualified Hydra.Core.Dsl.Diff as DslDiff
import qualified Hydra.Core.Dsl.Docs as DslDocs
import qualified Hydra.Core.Dsl.Error.Checking as ErrorChecking
import qualified Hydra.Core.Dsl.Error.File as DslErrorFile
import qualified Hydra.Core.Dsl.Error.Model as DslErrorModel
import qualified Hydra.Core.Dsl.Error.Packaging as DslErrorPackaging
import qualified Hydra.Core.Dsl.Error.System as DslErrorSystem
import qualified Hydra.Core.Dsl.Errors as DslErrors
import qualified Hydra.Core.Dsl.File as DslFile
import qualified Hydra.Core.Dsl.Graph as DslGraph
import qualified Hydra.Core.Dsl.Json.Model as DslJsonModel
import qualified Hydra.Core.Dsl.Markdown as DslMarkdown
import qualified Hydra.Core.Dsl.Model as DslModel
import qualified Hydra.Core.Dsl.Names as DslNames
import qualified Hydra.Core.Dsl.Packaging as DslPackaging
import qualified Hydra.Core.Dsl.Parsing as DslParsing
import qualified Hydra.Core.Dsl.Paths as DslPaths
import qualified Hydra.Core.Dsl.Query as DslQuery
import qualified Hydra.Core.Dsl.Regex as DslRegex
import qualified Hydra.Core.Dsl.Relational as DslRelational
import qualified Hydra.Core.Dsl.Rewriting as DslRewriting
import qualified Hydra.Core.Dsl.System as DslSystem
import qualified Hydra.Core.Dsl.Tabular as DslTabular
import qualified Hydra.Core.Dsl.Testing as DslTesting
import qualified Hydra.Core.Dsl.Time as DslTime
import qualified Hydra.Core.Dsl.Topology as DslTopology
import qualified Hydra.Core.Dsl.Typing as DslTyping
import qualified Hydra.Core.Dsl.Util as DslUtil
import qualified Hydra.Core.Dsl.Validation as DslValidation
import qualified Hydra.Core.Dsl.Variants as DslVariants
import qualified Hydra.Core.Error.Checking as Checking
import qualified Hydra.Core.Error.File as ErrorFile
import qualified Hydra.Core.Error.Model as ErrorModel
import qualified Hydra.Core.Error.Packaging as ErrorPackaging
import qualified Hydra.Core.Error.System as ErrorSystem
import qualified Hydra.Core.Errors as Errors
import qualified Hydra.Core.File as File
import qualified Hydra.Core.Graph as Graph
import qualified Hydra.Core.Json.Model as JsonModel
import qualified Hydra.Core.Markdown as Markdown
import qualified Hydra.Core.Model as Model
import qualified Hydra.Core.Names as Names
import qualified Hydra.Core.Packaging as Packaging
import qualified Hydra.Core.Parsing as Parsing
import qualified Hydra.Core.Paths as Paths
import qualified Hydra.Core.Query as Query
import qualified Hydra.Core.Regex as Regex
import qualified Hydra.Core.Relational as Relational
import qualified Hydra.Core.Rewriting as Rewriting
import qualified Hydra.Core.System as System
import qualified Hydra.Core.Tabular as Tabular
import qualified Hydra.Core.Testing as Testing
import qualified Hydra.Core.Time as Time
import qualified Hydra.Core.Topology as Topology
import qualified Hydra.Core.Typed as Typed
import qualified Hydra.Core.Typing as Typing
import qualified Hydra.Core.Util as Util
import qualified Hydra.Core.Validation as Validation
import qualified Hydra.Core.Variables as Variables
import qualified Hydra.Core.Variants as Variants
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, lines, map, pure, sum, unlines)
import qualified Data.Scientific as Sci
import Data.Void
import qualified Data.Map as M
import qualified Data.Set as S

-- | DSL reference to hydra.core.variables.freeTypeVariablesInTerm
freeTypeVariablesInTerm :: Typed.TypedTerm Model.Term -> Typed.TypedTerm (S.Set Model.Name)
freeTypeVariablesInTerm arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeTypeVariablesInTerm")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInTerm
freeVariablesInTerm :: Typed.TypedTerm Model.Term -> Typed.TypedTerm (S.Set Model.Name)
freeVariablesInTerm arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInTerm")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInType
freeVariablesInType :: Typed.TypedTerm Model.Type -> Typed.TypedTerm (S.Set Model.Name)
freeVariablesInType arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInType")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInTypeOrdered
freeVariablesInTypeOrdered :: Typed.TypedTerm Model.Type -> Typed.TypedTerm [Model.Name]
freeVariablesInTypeOrdered arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInTypeOrdered")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInTypeScheme
freeVariablesInTypeScheme :: Typed.TypedTerm Model.TypeScheme -> Typed.TypedTerm (S.Set Model.Name)
freeVariablesInTypeScheme arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInTypeScheme")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInTypeSchemeSimple
freeVariablesInTypeSchemeSimple :: Typed.TypedTerm Model.TypeScheme -> Typed.TypedTerm (S.Set Model.Name)
freeVariablesInTypeSchemeSimple arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInTypeSchemeSimple")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.freeVariablesInTypeSimple
freeVariablesInTypeSimple :: Typed.TypedTerm Model.Type -> Typed.TypedTerm (S.Set Model.Name)
freeVariablesInTypeSimple arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.freeVariablesInTypeSimple")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.isFreeVariableInTerm
isFreeVariableInTerm :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Bool
isFreeVariableInTerm arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.isFreeVariableInTerm")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.variables.normalizeTypeVariablesInTerm
normalizeTypeVariablesInTerm :: Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
normalizeTypeVariablesInTerm arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.normalizeTypeVariablesInTerm")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.variables.replaceFreeTermVariable
replaceFreeTermVariable :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
replaceFreeTermVariable arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.replaceFreeTermVariable")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.variables.replaceFreeTypeVariable
replaceFreeTypeVariable :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type
replaceFreeTypeVariable arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.replaceFreeTypeVariable")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.variables.substituteTypeVariables
substituteTypeVariables :: Typed.TypedTerm (M.Map Model.Name Model.Name) -> Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type
substituteTypeVariables arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.substituteTypeVariables")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.variables.substituteVariable
substituteVariable :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
substituteVariable arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.substituteVariable")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.variables.substituteVariables
substituteVariables :: Typed.TypedTerm (M.Map Model.Name Model.Name) -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
substituteVariables arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.substituteVariables")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.variables.unshadowVariables
unshadowVariables :: Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
unshadowVariables arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.variables.unshadowVariables")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))