1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
From Coq Require Import Uint63 PArray.
Open Scope array_scope.
Definition t : array nat := [| 1; 5; 2 | 4 |].
Definition t' : array nat := PArray.copy t.
Definition foo1 := (eq_refl : t'.[1] = 5).
Definition foo2 := (eq_refl 5 <: t'.[1] = 5).
Definition foo3 := (eq_refl 5 <<: t'.[1] = 5).
Definition x1 := Eval compute in t'.[1].
Definition foo4 := (eq_refl : x1 = 5).
Definition x2 := Eval cbn in t'.[1].
Definition foo5 := (eq_refl : x2 = 5).
Definition foo6 := (eq_refl : t.[1] = 5).
Definition foo7 := (eq_refl 5 <: t.[1] = 5).
Definition foo8 := (eq_refl 5 <<: t.[1] = 5).
Definition x3 := Eval compute in t.[1].
Definition foo9 := (eq_refl : x3 = 5).
Definition x4 := Eval cbn in t.[1].
Definition foo10 := (eq_refl : x4 = 5).
|
