File: bug_5066.v

package info (click to toggle)
rocq-stdlib 9.0.0-3
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 11,828 kB
  • sloc: python: 2,928; sh: 444; makefile: 319; javascript: 24; ml: 2
file content (7 lines) | stat: -rw-r--r-- 261 bytes parent folder | download 
1
2
3
4
5
6
7
 
From Stdlib Require Import Vector.

Fail Program Fixpoint vector_rev {A : Type} {n1 n2 : nat} (v1 : Vector.t A n1) (v2 : Vector.t A n2) : Vector.t A (n1+n2) :=
  match v1 with
  | nil _          => v2
  | cons _ e n' sv => vector_rev sv (cons A e n2 v2)
  end.