|
Last change
on this file since 293 was
246,
checked in by mulligan, 10 years ago
|
|
Added physical file (Arithmetic) for arithmetic on bit vectors, and
added sparse bitvector trie for modelling 8051 memory.
|
|
File size:
431 bytes
|
| Line | |
|---|
| 1 | include "Nat.ma". |
|---|
| 2 | |
|---|
| 3 | ndefinition function_apply ≝ |
|---|
| 4 | λA, B: Type[0]. |
|---|
| 5 | λf: A → B. |
|---|
| 6 | λa: A. |
|---|
| 7 | f a. |
|---|
| 8 | |
|---|
| 9 | notation "f break $ x" |
|---|
| 10 | left associative with precedence 99 |
|---|
| 11 | for @{ 'function_apply $f $x }. |
|---|
| 12 | |
|---|
| 13 | interpretation "Function application" 'function_apply f x = (function_apply ? ? f x). |
|---|
| 14 | |
|---|
| 15 | nlet rec iterate (A: Type[0]) (f: A → A) (a: A) (n: Nat) on n ≝ |
|---|
| 16 | match n with |
|---|
| 17 | [ Z ⇒ a |
|---|
| 18 | | S o ⇒ f (iterate A f a o) |
|---|
| 19 | ]. |
|---|
Note: See
TracBrowser
for help on using the repository browser.
