次のスニペットのための（番組の）実装を（https://stackoverflow.com/a/37461290/2129302）から検索された： tensor : Vect n Nat -> Type -> Type
tensor [] a = a
tensor (m :: ms) a = Vect m (tensor ms a)
私は次のように定義したいと思います： mkStr :
私はLean proof assistantを学習しています。 https://leanprover.github.io/theorem_proving_in_lean/inductive_types.htmlのエクササイズは、自然数の先行関数を定義することです。誰かが私を助けることができますか？ open nat
definition pred : ℕ → ℕ
| zero := zer
から定期的にリストを取得する私はあなたが以下のコードで見ることができるようProxyとnatValを使用してIntegerにNatを変換する方法見つけた： {-# LANGUAGE DataKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Data.Proxy (Proxy)
import D
遅延コンストラクタなしでCoListを定義しようとしています。私はwith式を使用する問題に遭遇していますが、agdaはサブケースのタイプを洗練しません。 module Failing where
open import Data.Unit
open import Data.Empty
open import Data.Maybe
open import Data.Nat
open i