(;module:
  lux
  (.. ["lp" pattern]))

(type: #export #rec Synthesis
  #Unit
  (#Bool Bool)
  (#Nat Nat)
  (#Int Int)
  (#Deg Deg)
  (#Real Real)
  (#Char Char)
  (#Text Text)
  (#Variant Nat Bool Synthesis)
  (#Tuple (List Synthesis))
  (#Case (List [lp;Pattern Synthesis]))
  (#Function Scope Synthesis)
  (#Call Synthesis (List Synthesis))
  (#Procedure Ident (List Synthesis))
  (#Relative Ref)
  (#Absolute Ident))