Skip to content

Suppress erasable warning for props. #114

Suppress erasable warning for props.

Suppress erasable warning for props. #114

Triggered via push January 10, 2025 22:11
Status Failure
Total duration 38m 47s
Artifacts 3

ci.yml

on: push
Matrix: tests / binary-smoke
Matrix: tests / ocaml-smoke
Fit to window
Zoom out
Zoom in

Annotations

3 errors, 6 warnings, and 7 notices
tests / test-local
Diff failed for files /tests/error-messages/_output/Monoid.fst.json_output and /tests/error-messages/Monoid.fst.json_output.expected: --- _output/Monoid.fst.json_output 2025-01-10 22:37:21.400814821 +0000 +++ Monoid.fst.json_output.expected 2025-01-10 22:34:35.355480267 +0000 @@ -345,8 +345,8 @@ Module after type checking: module Monoid Declarations: [ -let right_unitality_lemma m u466 mult = forall (x: m). mult x u466 == x -let left_unitality_lemma m u466 mult = forall (x: m). mult u466 x == x +let right_unitality_lemma m u476 mult = forall (x: m). mult x u476 == x +let left_unitality_lemma m u476 mult = forall (x: m). mult u476 x == x let associativity_lemma m mult = forall (x: m) (y: m) (z: m). mult (mult x y) z == mult x (mult y z) unopteq type monoid (m: Type) = @@ -382,25 +382,25 @@ -let intro_monoid m u466 mult = Monoid.Monoid u466 mult () () () <: Prims.Pure (Monoid.monoid m) +let intro_monoid m u476 mult = Monoid.Monoid u476 mult () () () <: Prims.Pure (Monoid.monoid m) let nat_plus_monoid = let add x y = x + y <: Prims.nat in Monoid.intro_monoid Prims.nat 0 add let int_plus_monoid = Monoid.intro_monoid Prims.int 0 Prims.op_Addition let conjunction_monoid = - let u464 = FStar.Pervasives.singleton Prims.l_True in + let u474 = FStar.Pervasives.singleton Prims.l_True in let mult p q = p /\ q <: Prims.prop in let left_unitality_helper p = - (assert (mult u464 p <==> p); - FStar.PropositionalExtensionality.apply (mult u464 p) p) + (assert (mult u474 p <==> p); + FStar.PropositionalExtensionality.apply (mult u474 p) p) <: - FStar.Pervasives.Lemma (ensures mult u464 p == p) + FStar.Pervasives.Lemma (ensures mult u474 p == p) in let right_unitality_helper p = - (assert (mult p u464 <==> p); - FStar.PropositionalExtensionality.apply (mult p u464) p) + (assert (mult p u474 <==> p); + FStar.PropositionalExtensionality.apply (mult p u474) p) <: - FStar.Pervasives.Lemma (ensures mult p u464 == p) + FStar.Pervasives.Lemma (ensures mult p u474 == p) in let associativity_helper p1 p2 p3 = (assert (mult (mult p1 p2) p3 <==> mult p1 (mult p2 p3)); @@ -409,26 +409,26 @@ FStar.Pervasives.Lemma (ensures mult (mult p1 p2) p3 == mult p1 (mult p2 p3)) in FStar.Classical.forall_intro right_unitality_helper; - assert (Monoid.right_unitality_lemma Prims.prop u464 mult); + assert (Monoid.right_unitality_lemma Prims.prop u474 mult); FStar.Classical.forall_intro left_unitality_helper; - assert (Monoid.left_unitality_lemma Prims.prop u464 mult); + assert (Monoid.left_unitality_lemma Prims.prop u474 mult); FStar.Classical.forall_intro_3 associativity_helper; assert (Monoid.associativity_lemma Prims.prop mult); - Monoid.intro_monoid Prims.prop u464 mult + Monoid.intro_monoid Prims.prop u474 mult let disjunction_monoid = - let u464 = FStar.Pervasives.singleton Prims.l_False in + let u474 = FStar.Pervasives.singleton Prims.l_False in let mult p q = p \/ q <: Prims.prop in let left_unitality_helper p = - (assert (mult u464 p <==> p); - FStar.PropositionalExtensionality.apply (mult u464 p) p) + (assert (mult u474 p <==> p); + FStar.PropositionalExtensionality.apply (mult u474 p) p) <: - FStar.Pervasives.Lemma (ensures mult u464 p == p) + FStar.Pervasives.Lemma (ensures mult u474 p == p) in let right_unitality_helper p = - (assert (mult p u464 <==> p); - FStar.PropositionalExtensionality.apply (mult p u464) p) + (assert (mult p u474 <==> p); + FStar.PropositionalExtensionality.apply (mult p u474) p) <: - FStar.Pervasives.Lemma (ensures mult p u464 == p) + FStar.Pervasives.Lemma (ensures mult p u474 == p) in let associativity_helper p1 p2 p3 = (assert (mult (mult p1 p2) p3 <==> mult p1 (mult p2 p3)); @@ -437,12 +437,12 @@ FStar.Pervasives.Lemma (ensures mult (mult p1 p2) p3 == mult p1 (mult p2 p3)) in FStar.Classical.forall_intro right_unitality_helper; - assert (Monoid.right_unitality_lemma Prims.prop u464 mult); + assert (Monoid.rig
tests / test-local
Diff failed for files /tests/error-messages/_output/Monoid.fst.output and /tests/error-messages/Monoid.fst.output.expected: --- _output/Monoid.fst.output 2025-01-10 22:37:22.408822988 +0000 +++ Monoid.fst.output.expected 2025-01-10 22:34:35.355480267 +0000 @@ -345,8 +345,8 @@ Module after type checking: module Monoid Declarations: [ -let right_unitality_lemma m u466 mult = forall (x: m). mult x u466 == x -let left_unitality_lemma m u466 mult = forall (x: m). mult u466 x == x +let right_unitality_lemma m u476 mult = forall (x: m). mult x u476 == x +let left_unitality_lemma m u476 mult = forall (x: m). mult u476 x == x let associativity_lemma m mult = forall (x: m) (y: m) (z: m). mult (mult x y) z == mult x (mult y z) unopteq type monoid (m: Type) = @@ -382,25 +382,25 @@ -let intro_monoid m u466 mult = Monoid.Monoid u466 mult () () () <: Prims.Pure (Monoid.monoid m) +let intro_monoid m u476 mult = Monoid.Monoid u476 mult () () () <: Prims.Pure (Monoid.monoid m) let nat_plus_monoid = let add x y = x + y <: Prims.nat in Monoid.intro_monoid Prims.nat 0 add let int_plus_monoid = Monoid.intro_monoid Prims.int 0 Prims.op_Addition let conjunction_monoid = - let u464 = FStar.Pervasives.singleton Prims.l_True in + let u474 = FStar.Pervasives.singleton Prims.l_True in let mult p q = p /\ q <: Prims.prop in let left_unitality_helper p = - (assert (mult u464 p <==> p); - FStar.PropositionalExtensionality.apply (mult u464 p) p) + (assert (mult u474 p <==> p); + FStar.PropositionalExtensionality.apply (mult u474 p) p) <: - FStar.Pervasives.Lemma (ensures mult u464 p == p) + FStar.Pervasives.Lemma (ensures mult u474 p == p) in let right_unitality_helper p = - (assert (mult p u464 <==> p); - FStar.PropositionalExtensionality.apply (mult p u464) p) + (assert (mult p u474 <==> p); + FStar.PropositionalExtensionality.apply (mult p u474) p) <: - FStar.Pervasives.Lemma (ensures mult p u464 == p) + FStar.Pervasives.Lemma (ensures mult p u474 == p) in let associativity_helper p1 p2 p3 = (assert (mult (mult p1 p2) p3 <==> mult p1 (mult p2 p3)); @@ -409,26 +409,26 @@ FStar.Pervasives.Lemma (ensures mult (mult p1 p2) p3 == mult p1 (mult p2 p3)) in FStar.Classical.forall_intro right_unitality_helper; - assert (Monoid.right_unitality_lemma Prims.prop u464 mult); + assert (Monoid.right_unitality_lemma Prims.prop u474 mult); FStar.Classical.forall_intro left_unitality_helper; - assert (Monoid.left_unitality_lemma Prims.prop u464 mult); + assert (Monoid.left_unitality_lemma Prims.prop u474 mult); FStar.Classical.forall_intro_3 associativity_helper; assert (Monoid.associativity_lemma Prims.prop mult); - Monoid.intro_monoid Prims.prop u464 mult + Monoid.intro_monoid Prims.prop u474 mult let disjunction_monoid = - let u464 = FStar.Pervasives.singleton Prims.l_False in + let u474 = FStar.Pervasives.singleton Prims.l_False in let mult p q = p \/ q <: Prims.prop in let left_unitality_helper p = - (assert (mult u464 p <==> p); - FStar.PropositionalExtensionality.apply (mult u464 p) p) + (assert (mult u474 p <==> p); + FStar.PropositionalExtensionality.apply (mult u474 p) p) <: - FStar.Pervasives.Lemma (ensures mult u464 p == p) + FStar.Pervasives.Lemma (ensures mult u474 p == p) in let right_unitality_helper p = - (assert (mult p u464 <==> p); - FStar.PropositionalExtensionality.apply (mult p u464) p) + (assert (mult p u474 <==> p); + FStar.PropositionalExtensionality.apply (mult p u474) p) <: - FStar.Pervasives.Lemma (ensures mult p u464 == p) + FStar.Pervasives.Lemma (ensures mult p u474 == p) in let associativity_helper p1 p2 p3 = (assert (mult (mult p1 p2) p3 <==> mult p1 (mult p2 p3)); @@ -437,12 +437,12 @@ FStar.Pervasives.Lemma (ensures mult (mult p1 p2) p3 == mult p1 (mult p2 p3)) in FStar.Classical.forall_intro right_unitality_helper; - assert (Monoid.right_unitality_lemma Prims.prop u464 mult); + assert (Monoid.right_unitality_lemma P
tests / test-local
Process completed with exit code 2.
stale-hints / check_stale_hints
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
nix / fstar-nix
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
build / build
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
tests / check-stage3
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
tests / ocaml-smoke (fstar-src.tar.gz, ubuntu-latest)
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
tests / test-local
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
tests / perf-canaries: DEFS_100#L1
time = 0.15
tests / perf-canaries: DEFS_200#L1
time = 0.17
tests / perf-canaries: DEFS_400#L1
time = 0.18
tests / perf-canaries: DEFS_800#L1
time = 0.22
tests / perf-canaries: DEFS_1600#L1
time = 0.32
tests / perf-canaries: DEFS_3200#L1
time = 0.49
tests / perf-canaries: DEFS_6400#L1
time = 0.85

Artifacts

Produced during runtime
Name Size
fstar-repo
311 MB
fstar-src.tar.gz
4.98 MB
fstar.tar.gz
137 MB