1#![deny(
2 rustdoc::broken_intra_doc_links,
3 rustdoc::private_intra_doc_links,
4 rustdoc::missing_crate_level_docs,
5 rustdoc::invalid_codeblock_attributes,
6 rustdoc::invalid_html_tags,
7 rustdoc::invalid_rust_codeblocks,
8 rustdoc::bare_urls,
9 rustdoc::unescaped_backticks,
10 missing_docs
11)]
12
13use proc_macro::TokenStream;
18use quote::quote;
19use syn::{LitInt, parse_macro_input};
20
21#[proc_macro]
36#[allow(non_snake_case)]
37pub fn N(input: TokenStream) -> TokenStream {
38 let input = parse_macro_input!(input as LitInt);
39 let value = input
40 .base10_parse::<usize>()
41 .expect("natural numbers are non-negative");
42
43 let mut output = quote! { ::type_proof::peano::N0 };
44 for _ in 0..value {
45 output = quote! { ::type_proof::peano::Succ<#output> };
46 }
47
48 TokenStream::from(output)
49}
50
51#[proc_macro]
66#[allow(non_snake_case)]
67pub fn P(input: TokenStream) -> TokenStream {
68 let input = parse_macro_input!(input as LitInt);
69
70 let nat = quote! { ::type_proof_macros::N!(#input) };
71 let output = quote! { ::type_proof::formula::Var<#nat> };
72
73 TokenStream::from(output)
74}