diff options
Diffstat (limited to 'src/hls/Abstr.v')
-rw-r--r-- | src/hls/Abstr.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/hls/Abstr.v b/src/hls/Abstr.v index ab0511f..9992b1c 100644 --- a/src/hls/Abstr.v +++ b/src/hls/Abstr.v @@ -728,11 +728,11 @@ Definition beq_pred_expr (pe1 pe2: pred_expr) : bool := Definition check := Rtree.beq beq_pred_expr. -Compute (check (empty # (Reg 2) <- - ((((Pand (Plit (true, 4)) (¬ (Plit (true, 4))))), (Ebase (Reg 9))) ::| - (NE.singleton (((Plit (true, 2))), (Ebase (Reg 3)))))) - (empty # (Reg 2) <- (NE.singleton (((Por (Plit (true, 2)) (Pand (Plit (true, 3)) (¬ (Plit (true, 3)))))), - (Ebase (Reg 3)))))). +(* Compute (check (empty # (Reg 2) <- *) +(* ((((Pand (Plit (true, 4)) (¬ (Plit (true, 4))))), (Ebase (Reg 9))) ::| *) +(* (NE.singleton (((Plit (true, 2))), (Ebase (Reg 3)))))) *) +(* (empty # (Reg 2) <- (NE.singleton (((Por (Plit (true, 2)) (Pand (Plit (true, 3)) (¬ (Plit (true, 3)))))), *) +(* (Ebase (Reg 3)))))). *) Lemma inj_asgn_eg : forall a b, (a =? b)%nat = (a =? a)%nat -> a = b. Proof. |