Skip to content

C
cpdt
Commit c3e0b03f authored by Adam Chlipala's avatar Adam Chlipala
Browse files
Options

Target language source examples

parent e0801cbe
Show whitespace changes
Inline Side-by-side
Showing with 8 additions and 0 deletions
src/StackMachine.v
View file @ c3e0b03f
...@@ -581,6 +581,14 @@ Fixpoint texpDenote t (e : texp t) {struct e} : typeDenote t := ...@@ -581,6 +581,14 @@ Fixpoint texpDenote t (e : texp t) {struct e} : typeDenote t :=
| TBinop _ _ _ b e1 e2 => (tbinopDenote b) (texpDenote e1) (texpDenote e2) | TBinop _ _ _ b e1 e2 => (tbinopDenote b) (texpDenote e1) (texpDenote e2)
end. end.
(** We can evaluate a few example programs to convince ourselves that this semantics is correct. *)
Eval simpl in texpDenote (TNConst 42).
Eval simpl in texpDenote (TBConst true).
Eval simpl in texpDenote (TBinop TTimes (TBinop TPlus (TNConst 2) (TNConst 2)) (TNConst 7)).
Eval simpl in texpDenote (TBinop (TEq Nat) (TBinop TPlus (TNConst 2) (TNConst 2)) (TNConst 7)).
Eval simpl in texpDenote (TBinop TLt (TBinop TPlus (TNConst 2) (TNConst 2)) (TNConst 7)).
(** ** Target language *) (** ** Target language *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment