fact: Fixpoint buildL (L : list triplet) : rArray (list triplet) := match L with | nil => rArrayMake _ (rEmpty _) (fun r => nil) | t :: L1 => match t with | Triplet _ p q r => letP _ _ (letP _ _ (letP _ _ (buildL L1) (fun Ar1 => rArraySet _ Ar1 (valRz p) (t :: rArrayGet _ Ar1 (valRz p)))) (fun Ar2 => rArraySet _ Ar2 (valRz q) (t :: rArrayGet _ Ar2 (valRz q)))) (fun Ar3 => rArraySet _ Ar3 (valRz r) (t :: rArrayGet _ Ar3 (valRz r))) end end.
imports: Stalmarck(makeTriplet)