mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 18:52:13 +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
|
||
|
|
|