diff --git a/src/Juvix/Compiler/Core/Translation/FromInternal.hs b/src/Juvix/Compiler/Core/Translation/FromInternal.hs index eb5b3d34cd..14f021fdfa 100644 --- a/src/Juvix/Compiler/Core/Translation/FromInternal.hs +++ b/src/Juvix/Compiler/Core/Translation/FromInternal.hs @@ -705,10 +705,12 @@ goAxiomDef a = maybe goAxiomNotBuiltin builtinBody (a ^. Internal.axiomBuiltin) mkSmallUniv (mkLambda' (mkVar' 0) (mkBuiltinApp' OpAnomaEncode [mkVar' 0])) ) - Internal.BuiltinAnomaDecode -> + Internal.BuiltinAnomaDecode -> do + natName <- getNatName + natSym <- getNatSymbol registerAxiomDef ( mkLambda' - mkSmallUniv + (mkTypeConstr (setInfoName natName mempty) natSym []) (mkLambda' (mkVar' 0) (mkBuiltinApp' OpAnomaDecode [mkVar' 0])) ) Internal.BuiltinPoseidon -> do