mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-21 19:08:51 +03:00
42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
Loading module Cryptol
|
|
Loading module Cryptol
|
|
Loading module specialize
|
|
Expression type:
|
|
(Bit, Bit) -> (Bit, Bit)
|
|
Original expression:
|
|
specialize::top
|
|
Specialized expression:
|
|
specialize::top
|
|
where
|
|
/* Not recursive */
|
|
specialize::f : (Bit, Bit) -> (Bit, Bit)
|
|
specialize::f = \ (__p1 : (Bit, Bit)) ->
|
|
(specialize::x, specialize::y)
|
|
where
|
|
/* Not recursive */
|
|
specialize::x : Bit
|
|
specialize::x = __p1 .0 /* of 2 */
|
|
|
|
/* Not recursive */
|
|
specialize::y : Bit
|
|
specialize::y = __p1 .1 /* of 2 */
|
|
|
|
|
|
|
|
/* Not recursive */
|
|
specialize::top : (Bit, Bit) -> (Bit, Bit)
|
|
specialize::top = \ (__p0 : (Bit, Bit)) ->
|
|
specialize::f (specialize::x, specialize::y)
|
|
where
|
|
/* Not recursive */
|
|
specialize::x : Bit
|
|
specialize::x = __p0 .0 /* of 2 */
|
|
|
|
/* Not recursive */
|
|
specialize::y : Bit
|
|
specialize::y = __p0 .1 /* of 2 */
|
|
|
|
|
|
|
|
|