24.04.2013 Views

Verification of Parameterised FPGA Circuit Descriptions with Layout ...

Verification of Parameterised FPGA Circuit Descriptions with Layout ...

Verification of Parameterised FPGA Circuit Descriptions with Layout ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

APPENDIX D. CIRCUIT LAYOUT CASE STUDIES 310<br />

t805)vector)vector)=>((’t686)vector*(’t805)vector)vector=>int)block) ;; col $<br />

(z, swap ;; rsh ;; fst $ (zip $ 2) ;; grid $ (x, y, cube_cell $ (x, R)) ;;<br />

snd $ (converse $ (zip $ 2)) ;; rsh ;; fst $ swap ;; lsh) ;; snd $ (converse<br />

$ ((zip $ 2)::((((’t805)vector)vector*((’t686)vector)vector)=>((’t805)vector<br />

*(’t686)vector)vector=>bool,(((’t805)vector)vector*((’t686)vector)vector)<br />

=>((’t805)vector*(’t686)vector)vector=>int)block)) ;;; (z_r, (y_r, x_r)))"<br />

width_def: "width == % (x, y, z, R) (x_d, y_d, z_d) (z_r, y_r, x_r). Width (((x_d<br />

, y_d), z_d) ;;; fst $ ((zip $ 2)::((((’t686)vector)vector*((’t805)vector)<br />

vector)=>((’t686)vector*(’t805)vector)vector=>bool,(((’t686)vector)vector*((’<br />

t805)vector)vector)=>((’t686)vector*(’t805)vector)vector=>int)block) ;; col $<br />

(z, swap ;; rsh ;; fst $ (zip $ 2) ;; grid $ (x, y, cube_cell $ (x, R)) ;;<br />

snd $ (converse $ (zip $ 2)) ;; rsh ;; fst $ swap ;; lsh) ;; snd $ (converse<br />

$ ((zip $ 2)::((((’t805)vector)vector*((’t686)vector)vector)=>((’t805)vector<br />

*(’t686)vector)vector=>bool,(((’t805)vector)vector*((’t686)vector)vector)<br />

=>((’t805)vector*(’t686)vector)vector=>int)block)) ;;; (z_r, (y_r, x_r)))"<br />

cube_def: "cube == (| Def = struct, Height = height, Width = width |)"<br />

declare width_def [simp]<br />

declare height_def [simp]<br />

declare struct_def [simp]<br />

section {* Validity <strong>of</strong> width and height functions *}<br />

theorem height_ge0_int : "!! (x::int) (y::int) (z::int) (R::(((’t686*’t805*’t772)=>(’<br />

t772*’t805*’t686)=>bool,(’t686*’t805*’t772)=>(’t772*’t805*’t686)=>int)block)) (<br />

x_d::((’t686)vector)vector) (y_d::((’t805)vector)vector) (z_d::((’t772)vector)<br />

vector) (z_r::((’t772)vector)vector) (y_r::((’t805)vector)vector) (x_r::((’t686)<br />

vector)vector). [| ALL (qs1103::(’t686*’t805*’t772)) (qs1104::(’t772*’t805*’t686<br />

)). 0 bool,(’t686*’t805*’t772)=>(’t772*’t805*’t686)=>int)block)) (<br />

x_d::((’t686)vector)vector) (y_d::((’t805)vector)vector) (z_d::((’t772)vector)<br />

vector) (z_r::((’t772)vector)vector) (y_r::((’t805)vector)vector) (x_r::((’t686)<br />

vector)vector). [| ALL (qs1103::(’t686*’t805*’t772)) (qs1104::(’t772*’t805*’t686<br />

)). 0 bool,(’t686*’t805*’t772)=>(’t772*’t805*’t686)=>int)block)) (x_d

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!