lean2/tests/lean/sig2.lean

check sig x : Nat, x > 0
check tuple 10, 20
check tuple 10, true
check tuple true, 20
check tuple Bool # Nat : true, 20
check tuple true, true
check tuple Bool ⨯ Bool : true, true
variable a : Nat
axiom Ha : 1 ≤ a
definition NZ : Type := sig x : Nat, 1 ≤ x
check NZ
check tuple NZ : a, Ha
check tuple Nat # Nat : true, 20
check tuple Bool # Bool : true, 20
-												feat(frontends/lean): parse and pretty print tuples/pairs

This commit also fixes a bug in the type checker when processing dependent pairs.

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 04:10:26 +00:00
+								check sig x : Nat, x > 0
-												feat(frontends/lean): support for nary-tuples, improve notation for non-dependent tuples, add support in the elaborator for sigma types

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 04:46:15 +00:00
+								check tuple 10, 20
 								check tuple 10, true
 								check tuple true, 20
-												chore(tests/lean/sig2): remove unnecessary parenthesis from test

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 19:37:08 +00:00
+								check tuple Bool # Nat : true, 20
-												feat(frontends/lean): support for nary-tuples, improve notation for non-dependent tuples, add support in the elaborator for sigma types

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 04:46:15 +00:00
+								check tuple true, true
 								check tuple Bool ⨯ Bool : true, true
-												feat(frontends/lean): parse and pretty print tuples/pairs

This commit also fixes a bug in the type checker when processing dependent pairs.

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 04:10:26 +00:00
+								variable a : Nat
 								axiom Ha : 1 ≤ a
 								definition NZ : Type := sig x : Nat, 1 ≤ x
 								check NZ
-												feat(frontends/lean): support for nary-tuples, improve notation for non-dependent tuples, add support in the elaborator for sigma types

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>

											
										
										
											2014-02-04 04:46:15 +00:00
+								check tuple NZ : a, Ha
 								check tuple Nat # Nat : true, 20
 								check tuple Bool # Bool : true, 20