mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 10:46:37 +03:00
15 lines
233 B
Plaintext
15 lines
233 B
Plaintext
mk_curve_ops f = undefined
|
|
where
|
|
c = { field = f
|
|
, v1 = ec_v1 f
|
|
, v2 = ec_v2 c
|
|
}
|
|
|
|
ec_v1 : {fv} { v0: fv } -> fv
|
|
ec_v1 = undefined
|
|
|
|
ec_v2 : {fv} _ -> fv
|
|
ec_v2 p = p.field.v0
|
|
where _ = p.field.v0
|
|
|